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Preface 

This  project  was  instigated  by  my  thesis  advisor,  Dr. 
George  John,  who  saw  the  need  to  upgrade  the  equipment  in 
the  Nuclear  Laboratory  at  the  Air  Force  Institute  of 
Technology.  I  have  been  fascinated  with  computers  since  my 
undergraduate  college  years  and  eagerly  accepted  the 
challenge  to  develop  hardware  and  software  for  this  system. 
My  limited  knowledge  of  digital  hardware  was  augmented  by 
the  advice  of  Capt.  David  Hardin.  Many  members  and  students 
of  the  Electrical  Engineering  department  helped  as  I  was 
assembling  and  testing  hardware,  but  I  wish  to  single  out 
Dr.  Thomas  Hartrum,  who  provided  access  to  the  equipment 
used,  and  Mr.  Daniel  Zambon  who  provided  detailed  advice, 
suggestions,  and  a  hot  soldering  iron  on  many  occasions. 

The  primary  factor  which  limited  the  scope  of  this 
study  was  the  availability  of  only  4096  bytes  of  program 
storage.  Most  of  the  software  written  and  time  spent 
debugging  was  devoted  to  making  even  a  limited  system  fit  in 
the  program  space  available. 
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Abstract 

Interfacing  a  microcomputer  to  a  Nuclear  Data  Series 
2200  multichannel  analyzer  has  been  demonstrated.  Programs 
for  data  transfer,  peak  detection,  peak  net  area 
integration,  peak  centroid  location,  and  energy  calibration 
were  written.  Data  transfer  and  peak  detection  scan  were 
demonstrated  on  4096  channel  spectra  in  less  than  5  minutes. 
Multibyte  integer  arithmetic  routines  for  the  8080 
microprocessor  were  written  to  conserve  space  and  time.  A 
proposed  system  for  gamma  ray  spectrum  analysis  is  described 
in  hardware  and  software  terms.  The  hardware  for  the 
proposed  system  would  cost  less  than  $9000  while  commercial 
multichannel  analyzers  with  the  same  capabilities  would  cost 
in  excess  of  $23,000. 
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FEASIBILITY  OF  INTERFACING  A  MICROCOMPUTER 


WITH  A  MULTICHANNEL  ANALYZER 
TO  PERFORM  GAMMA  RAY  SPECTROSCOPY 

I .  Introduction 

This  report  presents  the  results  of  a  study  which 
investigated  the  feasibility  of  using  a  microcomputer 
attached  to  an  existing  multichannel  analyzer  to  analyze 
gamma  ray  spectra.  Hardware  and  software  options  were 
explored. 

Background 

Gamma  ray  spectroscopy  is  the  process  of  analyzing  the 
energy  spectrum  of  a  gamma  ray  source.  The  source  emits 
gamma  rays  of  varying  energy;  some  of  these  rays  are 
absorbed  in  a  detector  and  produce  electrical  pulses  with 
amplitude  proportional  to  the  energy  of  the  gamma  ray 
absorbed.  The  electrical  pulses  are  amplified  and  fed  into 
a  multichannel  analyzer  which  measures  the  pulse  amplitude 
and  increments  one  of  its  channels.  The  number  of  the 
channel  incremented  is  proportional  to  the  size  of  the  pulse 
and  the  gain  setting  of  the  multichannel  analyzer.  After 
accumulating  pulses  for  a  preset  period  of  time,  the  values 
of  the  channels  are  read  out  in  sequential  order.  .The 
results  are  usually  displayed  on  an  oscilloscope  with 
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channel  number  on  the  x-axis  and  counts  per  channel  on  t ;:e 

y-axis.  When  displayed  in  this  manner,  the  oscilloscope 
trace  characteristically  has  peaks.  Some  of  these  peaks 
correspond  to  the  energy  of  a  particular  nuclear  transition. 
The  net  number  of  counts  in  the  channels  defining  a  peak  is 
proportional  to  the  intensity  of  that  gamma  ray  and  the 
efficiency  of  the  detection  system  at  that  energy.  The 
number  of  channels  between  two  peaks  is  proportional  to  the 
difference  in  energy  between  the  gamma  rays. 

The  desired  results  of  gamma  ray  spectroscopy  include 
the  determination  of  gamma  ray  energy  and  intensity  for  each 
of  the  peaks  displayed.  These  results  are  usually  obtained 
by  analyzing  a  spectrum  of  a  source  whose  activity  and  decay 
scheme  are  known,  using  the  results  to  calibrate  the  system, 
and  measuring  the  activity  of  an  unknown  sample  with  the 
calibrated  system.  For  each  of  these  steps,  it  is  necessary 
to  compute  the  location  and  area  of  each  peak.  Automation 
of  this  tedious  task  is  necessary  for  all  but  trivial 
studies . 

Currently,  in  the  Nuclear  Laboratory  at  the  Air  Force 
Institute  of  Technology,  spectra  are  analyzed  by  writing  the 
channel  contents  on  magnetic  tape,  taking  the  tape  to  the 
computer  center,  and  using  large  mainframe  computers  (such 
as  the  Cyber  74)  to  perform  the  calculations.  The 
disadvantage  of  this  procedure  is  that  it  takes  one  to  three 
days  before  results  are  available.  Increasing  contention 
for  the  limited  computer  resources  (tape  drive,  disk  memory, 
central  processor  time,  terminal,  and  plotter)  will  increase 
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the  time  required  to  obtain  remits.  Faster  response  by  a 

dedicated  system  can  improve  the  experimental  conditions  by 
allowing  changes  to  be  made  in  the  experimental  setup  based 
on  early  results.  A  dedicated  system  would  also  be  of  more 
pedagogic  value  because  a  student  could  receive  nearly 
immediate  feedback  (5-10  minutes)  and  be  able  to  recognize 
and  correct  mistakes  shortly  after  they  were  made. 
Furthermore,  after  graduation,  a  student  is  likely  to  find 
gamma  ray  systems  which  perform  most  or  all  of  the  spectrum 
analysis  rather  than  the  current  system  which  only  gathers 
data.  A  dedicated  system  could  be  provided  either  by 
purchasing  a  new  multichannel  analyzer  with  the  required 
capabilities  or  by  purchasing  a  microcomputer,  interfacing 
it  to  the  existing  multichannel  analyzer,  and  writing 
programs  which  will  analyze  gamma-ray  spectra. 

Statement  of  the  Problem 

The  purpose  of  this  effort  is  to  determine  whether  it 
is  feasible,  economical,  and  worthwhile  to  interface  a 
microcomputer  to  the  existing  multichannel  analyzer  and  use 
the  microcomputer  to  analyze  gamma  ray  spectra.  The  primary 
measure  of  feasibility  is  the  time  required  to  analyze  a 
typical  spectrum.  A  secondary  purpose  is  to  determine  the 
necessary  and  desirable  characteristics  of  such  a 
microcomputer  system. 

Requirements 

Before  a  system  can  be  designed  or  evaluated,  the 
required  and  desirable  performance  of  that  system  must  be 
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defined.  The  following  two  paragraphs  provide  the  rationale 
and  specify  the  required  functions,  maximum  time  allowed, 
and  the  necessity  of  program  changes  for  a  system  which 
performs  analysis  of  gamma  ray  spectra  at  the  Air  Force 
Institute  of  Technology. 

The  multichannel  analyzer  is  primarily  used  to  teach 
graduate  nuclear  engineering  students  the  basic  techniques 
of  gamma  ray  spectroscopy  in  a  laboratory  class  which  meets 
twice  a  week  for  three  hours.  An  improved  system  must 
provide  hands  on  training  to  several  students  in  the  three 
hour  period.  At  a  minimum  an  analysis  of  a  spectrum  must 
provide  for 

scanning  a  4096  channel  spectrum  and  identifying 

peaks , 


-  locating  each  peak  centroid  within  less  than  one 
channel , 

integrating  the  net  area  of  each  peak  after 
background  counts  have  been  subtracted, 

calibrating  the  analyzer  in  energy  and  efficiency, 

and 


-  applying  the  calibration  to  an  unknown  spectrum  to 
determine  the  energy  and  intensity  of  each  peak. 

In  order  to  provide  six  teams  of  students  an  opportunity  to 
operate  the  equipment,  the  analysis  must  be  completed  within 
30  minutes,  not  including  counting  time,  for  spectra 
containing  fewer  than  25  peaks.  So  that  one  tea::.  c...i  e t  up 
an  experiment  while  another  team  is  analyzing  data,  the 
analysis  of  a  spectrum  must  take  place  independently  of  the 
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data  acquisistion  except  for  a  short  time,  less  than  2 
minutes,  for  data  transfer. 

The  system  could  be  used  by  a  student  for  thesis 
research,  by  a  faculty  member  of  sponsored  research,  or  by  a 
class  researching  an  extensive  laboratory  project.  All  of 
these  uses  will  require  modifications  to  the  programs  which 
analyze  spectra.  As  a  result  the  system  must  be 
reprogramable.  Minor  reprograming  might  involve  the  writing 
of  an  executive  program  to  execute  functions  in  a  specified 
sequence.  Major  reprograming  would  include  rewriting  the 
subprogram  which  performs  a  single  function  or  adding  a  new 
function  to  the  system. 

The  requirements  stated  above  would  be  exceeded  by  an 
optimum  system.  The  best  possible  system  would  respond 
within  5  seconds  to  any  request  for  analysis,  would  process 
200  peaks,  and  would  perform  many  additional  functions. 
These  functions  are  discussed  in  Chapter  III  of  this  report; 
an  example  is  the  deconvolution  of  overlapping  peaks.  The 
minimum  system  should  recognize  overlapping  peaks;  a  better 
system  would  separate  them  and  provide  the  location  and  area 
of  each.  Still  further  improvement  would  resolve  more  than 
two  overlapping  peaks. 

A  subset  of  the  requirements  was  established  for  a 
demonstration  system.  The  reduced  requirements  enabled 
evaluation  of  the  concept  using  already  available  resources. 
The  basic  functions  of  peak  detection,  peak  location,  peak 
integration,  and  linear  energy  calibration  were  scloccec!  for 
implementation,  and  a  time  limit  of  5  minutes  to  perform 
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these  functions  on  one  peak  in  a  4096  channel  spectrum  was 
established.  Fifty  peaks  should  be  processed  by  the 
demonstration  system  within  ten  minutes.  If  a  simple  system 
could  meet  these  requirements,  then  more  complicated 
programs  could  be  written  to  meet  or  exceed  all  of  the 
requirements. 

Scope 

This  study  only  considered  one  multichannel  analyzer, 
the  Series  2200  System  Analyzer  manufactured  by  Nuclear 
Data,  Inc.  To  demonstrate  feasibility,  only  a  subset  of  the 
desirable  functions  of  analysis  were  implemented;  namely: 
data  transfer,  peak  detection,  peak  location,  peak 
integration,  and  the  simplest  of  energy  calibrations.  Three 
manufacturers  of  multichannel  analyzers  were  contacted  to 
determine  the  characteristics  and  costs  of  current 
analyzers . 

Assumptions 

An  assumption  inherent  in  this  study  is  that  the 
multichannel  analyzer  performs  as  designed  and  will  be 
maintainable  over  the  expected  lifetime  of  the  microcomputer 
system.  It  is  also  assumed  that  the  values  contained  in  the 
channels  are  an  accurate  representation  of  the  gamma  ray 
spectrum. 

Approach 

The  feasibility  study  was  accomplished  ;  ;  l  ges. 

First,  the  electrical  outputs  available  from  the 
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multichannel  analyzer  were  determined.  Then,  a 
microcomputer  was  selected  from  those  available  and  its 
capabilities  studied.  An  interface  between  the  multichannel 
analyzer  and  the  microcomputer  was  designed,  built,  and 
tested.  Next,  software  for  the  microcomputer  was  written, 
tested  and  refined.  Several  versions  of  the  software  went 
through  this  cycle,  each  version  with  additional 
capabilities.  Finally,  the  software  was  timed  in  execution 
and  evaluated  in  utility. 

The  determination  of  proposed  system  characteristics 
proceeded  at  the  same  time,  primarily  by  comparing  the 
capabilities  of  the  current  system  against  the  requirements 
stated  in  the  last  section.  In  order  to  determine  whether 
the  proposed  system  was  economical  it  was  compared  with 
three  commercial  systems  of  similar  characteristics. 

Sequence  of  Presentation 

This  report  is  organized  in  two  major  sections 
corresponding  to  the  two  purposes.  The  first  section  is  a 
detailed  description  of  the  demonstration  system  and  is 
divided  into  hardware,  software,  and  evaluation  subsections. 
The  next  section  describes  a  proposed  system  by  evaluating 
each  of  its  characteristics  and  then  compares  that  system 
with  commercially  available  multichannel  analysers,  A 
listing  of  each  program  in  the  demonstration  system  software 
is  included  in  Appendix  A.  Appendix  B  describes  testing  of 
the  interface  board  built  for  the  demonstration  r-.t  r  . 
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II.  Demonstration  System 

The  demonstration  system  consists  of  the  hardware 
assembled  and  the  software  written  to  demonstrate  a  working, 
although  limited,  system  for  gamma  analysis. 

Hardware 

The  term  "hardware"  refers  to  the  tangible  pieces  of 
equipment  that  make  up  the  system.  Hardware  includes:  the 
multichannel  analyzer,  the  microcomputer,  a  memory  board,  a 
communications  terminal,  and  an  interface  board  which 
matches  the  signals  of  the  multichannel  analyzer  to  those  of 
the  microcomputer.  These  pieces  of  equipment  will  be 
discussed  in  order. 

Multichannel  Analyzer.  (Ref  1)  The  multichannel 

analyzer  used  for  the  demonstration  was  a  Series  2200  System 
Analyzer  manufactured  by  Nuclear  Data,  Inc.  The 

multichannel  analyzer  has  three  major  modes  of  operation: 
acquire,  display,  and  read-out.  In  acquire  mode,  the 
multichannel  analyzer  accepts  pulses  and  increments  the 
count  in  a  non-volatile  memory  location,  called  a  channel. 
The  channel  number  incremented  is  proportional  to  the 
amplitude  of  the  pulse.  After  a  preset  period  of  time,  the 
analyzer  terminates  acquire  mode  and  enters  display  mode. 
In  this  mode,  the  multichannel  analyzer  converts  the  counts 
(  stored  in  the  channels  to  an  analog  signal  to  display  on  an 

oscilloscope  the  distribution  of  pulse  heights  as  counts 
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Fig  1.  Multichannel  Analyzer  Mode  Switch 

versus  channel  number.  This  distribution,  called  the  gamma 
ray  spectrum,  can  be  preserved  by  commanding  the 
multichannel  analyzer  to  enter  read-out  mode.  The  analyzer 
then  steps  through  its  channels  in  sequence  sending  the 
channel  values  and  addresses  to  an  auxiliary  piece  of 
equipment  (teletype,  magnetic  tape  drive,  plotter,  or 
microcomputer) . 

On  the  front  panel  of  the  analyzer  are  the  operator 
controls.  The  operation  of  these  controls  will  not  be 
discussed  except  for  the  mode  switch.  The  mode  switch, 
illustrated  in  Figure  1,  is  used  by  the  operator  to  place 
the  analyzer  in  acquire,  display,  or  read-out  mode.  There 
are  two  positions  labeled  STOP  on  the  mode  switch.  The  STOP 
position  to  the  left  of  DISPLAY  has  the  additional  function 
of  resetting  the  READ-IN/OUT  mode.  As  a  result,  the  switch 
must  be  left  in  the  STOP  position  shown  for  all  multichannel 
analyzer  operations  under  control  of  the  micr ocorr  rt - r . 

On  the  back  of  the  analyzer  are  three  conno  -'  r-  ;  they 
are  labeled  PRINTER  A,  PRINTER  B,  and  EXTERNAL.  These 
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CO.,. -tors  contain  all  the  lines  used  to  interface  the 
multichannel  analyzer  with  the  microcomputer.  The  pin 
designation,  name,  and  a  brief  statement  of  purpose  for  each 
line  used  in  the  interface  are  contained  in  Tables  I,  II, 
and  III. 

The  multichannel  analyzer  was  built  in  1969  and 
contains  logic  elements  (NAND  and  NOR  gates)  of  the  Diode 
Transistor  Logic  (DTL)  family.  The  "high"  or  logic  "1"  of 
the  DTL  family  is  defined  as  +3  volts  to  +6  volts  with 
respect  to  logic  ground.  The  "low"  or  logic  "0"  is  defined 
as  -.5  volt  to  +.5  volt.  These  logical  values  are  close  to 


the  nominal 

+5  volt 

"high" 

and  0 

volt  "low" 

of 

the 

Transistor 

Transistor 

Logic 

(TTL) 

family. 

Some 

TTL 

integrated  circuits  are  specified  to  withstand  more  than  +6 
volts  on  their  input  lines,  and  the  DTL  circuits  will  treat 
+5  volts  as  a  logic  "1".  Thus  the  two  logic  families  can  be 
interconnected  if  the  proper  TTL  input  devices  are  used. 

In  order  to  transfer  data  from  the  multichannel 
analyzer,  the  following  sequence  of  signals  is  used.  First, 
the  EXT  R  line  is  held  low.  The  analyzer  enters  read-out 
mode  and  sends  the  count  in  channel  zero  to  lines  MR1 
through  MR800K,  sends  the  channel  address  (zero)  to  lines  A1 
through  A4K  and  holds  the  'I'  line  low.  The  coding  of  data 
on  these  lines  is  binary  coded  decimal  (BCD) .  In  other 
words,  the  channel  data  is  first  expressed  as  a  6  digit 
decimal  number  and  then  each  decimal  diqit  is  coded  as  a  4 
bit  binary  number.  The  24  lines  that  result  are  known  as 
MR1  (least  significant  bit)  through  MR800K  (most  significant 
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Multichannel  Analyzer 


Pin  Name  Direction 


A  MR1  Output 

B  MR  2 

C  MR  4 

D  MR  8 

E  MRl 0  Output 

F  MR20 

H  MR40 

J  MR  80 

K  MRl 00  Output 

L  MR200 

M  MR400 

N  MR 800 

P  MR1K  Output 

R  MR2K 

S  MR4K 

T  MR8K 

U  MRl OK  Output 

V  MR20K 

W  MR40K 

X  MR80K 

Y  MRl 0 OK  Output 

Z  MR200K 

a  MR400K 

b  MR 80  OK 

d  GND  - 


( 


Table  I 

ignal  Lines  -  PRINTER  A  Connector 

Purpose 


Channel  Value  -  Ones  Digit 


Channel  Value  -  Tens  Digit 


Channel  Value  -  Hundreds  Digit 


Channel  Value  -  Thousands  Digit 


Channel  Value  -  Ten  Thousands 
Digit 


Channel  Value  -  Hundred  Thousands 
Digit 


(Ref  1:94-95) 
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Multichannel  Analyzer  Signal  Lines  -  PRINTER  B  Connector 


Pin 

Name 

Direction 

Purpose 

A 

A1 

Output 

Channel  Address  -  Ones  Digit 

B 

A2 

(Note  1) 

C 

A4 

D 

A8 

E 

A10 

Output 

Channel  Address  -  Tens  Digit 

F 

A20 

(Note  1) 

H 

A40 

J 

A80 

K 

A100 

Output 

Channel  Address  -  Hundreds  Digit 

L 

A200 

(Note  1) 

M 

A400 

N 

A800 

P 

AIK 

Output 

Channel  Address  -  Thousands  Digit 

R 

A2K 

(Note  1) 

S 

A4K 

U 

CMD 

Output 

Data  Ready  for  Read  Out  (Note  2) 

w 

RDY2 

Input 

Finished  With  This  Channel  (Note  3) 

e 

I 

Output 

Channel  Address  Ends  in  Zero 
(When  Low) 

FF 

GND 

— 

Logic  Ground 

Notes: 

1.  In 

Acquire  mode, 

lines  A1-A4K  receive  the  count  i 

channel  zero,  which  is  the  number  of  seconds  for  which  data 
has  been  accumulated. 

2.  Trailing  edge  (see  text)  . 

3.  Rising  edge  (see  text). 

(Ref  1 : 84-86A) 
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Table  III 


Multichannel  Analyzer  Signal  Lines  -  EXTERNAL  Connector 


Pin 

Name 

Direction 

Purpose 

B 

EXT  A 

Input 

Acquire  Mode 

(When  Low) 

C 

EXT  R 

Input 

Read  Out  Mode 

(When  Low) 

d 

GND 

— 

Logic  Ground 

(Ref  1 :  87-88A) 

bit).  Since  the  multichannel  analyzer  has  4096  channels, 
the  channel  address  can  be  expressed  using  4  decimal  digits. 
The  most  significant  digit  needs  only  3  binary  bits  so  there 
is  a  total  of  11  address  lines  (A1  through  A4K) . 

After  the  data  lines  have  been  read,  the  RDY2  line  is 
raised  by  the  microcomputer.  The  multichannel  analyzer 
raises  the  CMD  line,  advances  to  the  next  channel,  changes 
the  data  lines  (MR1-MR800K)  and  address  lines  (A1-A4K) ,  and 
lowers  the  CMD  line.  The  CMD  line  is  high  for  approximately 
10  microseconds.  The  RDY2  line  can  be  lowered  anytime  after 
the  CMD  line  goes  high  (less  than  1  microsecond)  and  the 
output  lines  contain  valid  data  any  time  after  the  CMD  line 
returns  low.  The  times  above  were  experimentally  verified. 

Each  succeeding  channel  is  transferred  by  raising  RDY2 
briefly.  When  the  last  channel  required  has  been 
transferred,  the  EXT  R  line  is  raised  and  the  RDY2  line  is 
raised  to  indicate  that  the  microcomputer  is  finished  with 
the  last  channel. 
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The  microcomputer  is  one  of  several  output  devices. 

The  other  devices  (teletype  and  magnetic  tape  drive)  each 
have  an  interface  unit  which  can  be  connected  to  the  PRINTER 
B  connector.  Before  the  microcomputer  interface  was  built, 
the  teletype  interface  was  connected  to  the  magnetic  tape 
interface  which  was  connected  to  the  multichannel  analyzer. 
The  connector  on  the  back  of  the  magnetic  tape  interface  is 
also  labeled  PRINTER  B.  If  the  magnetic  tape  drive  was  in 
use,  the  teletype  interface  received  no  signals.  When  the 
microcomputer  is  added,  the  teletype  interface  is 
disconnected  and  the  microcomputer  interface  is  connected  to 
the  back  of  the  magnetic  tape  interface.  As  long  as  the 
magnetic  tape  unit  is  not  being  used,  the  microcomputer 
interface  receives  the  same  signals  as  if  it  were  connected 
directly  to  the  multichannel  analyzer.  In  this  manner,  the 
tape  drive  can  be  used  as  before  and  the  teletype  function 
is  one  of  those  performed  by  the  microcomputer. 

Microcomputer .  The  procurement  cycle  for  data 
processing  equipment  is  longer  than  the  time  available  for 
this  study.  Therefore,  computers  on  hand  and  available  were 
surveyed,  and  one  selected  which  appeared  to  be  suitable  for 
a  demonstration  of  feasibility.  The  microcomputer  used  was 
a  Single  Board  Computer,  model  SBC  80/20  manuf acted  by  Intel 
Corporation  (Ref  2) .  The  single  board  computer  contains  an 
Intel  8080  microprocessor  and  associated  support  devices  in 
a  4  slot  card  cage  in  the  Intel  Multibus  configuration. 
Memory  available  on  the  microcomputer  board  includes  4 
sockets  for  type  2708  Erasable  Reprogrammable  Read  Only 
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Memories  (EPROM)  providing  4096  bytes  of  program  storage. 
Also  available  is  2048  bytes  of  dynamic  Random  Access  Memory 
(RAM)  for  data  storage.  Three  timer/counters  are  available 
in  an  Intel  8253  integrated  circuit;  one  timer  is  used  to 
produce  a  baud  rate  clock  signal  for  the  serial  input/output 
(I/O)  controller.  Serial  I/O  is  performed  by  an  Intel  8251 
Universal  Synchronous  Asynchronous  Receiver  Transmitter 
(USART)  which  produces  standard  serial  interface  signals 
(RS232C) .  An  interupt  controller  is  available  but  is  only 
used  to  regain  control  of  the  system  when  a  program 
malfunctions. 

The  most  important  feature  of  the  single  board  computer 
is  its  parallel  input/output  capability.  Six  ports,  each  8 
bits  wide,  are  available.  Three  input  ports  are  used  to 
receive  signals  on  24  lines  and  one  output  port  is  used  for 
8  control  lines.  One  of  the  remaining  ports  was  used  to 
display  results  during  interface  testing  (see  Appendix  B) . 
These  input  and  output  lines  are  available  at  the  edge  of 
the  microcomputer  board  and  are  led  from  there  to  the 
interface  board  by  printed  circuit  edge  connectors  and  flat 
wire  cable.  The  input  and  output  ports  were  configured  by 
wire-wrap  jumper  connections  on  the  microcomputer  board.  An 
input  port  samples  the  signal  lines  at  the  time  a  programmed 
'IN'  instruction  is  executed.  The  output  lines  are  given 
new  values  by  an  'OUT'  instruction  which  they  hold  until  the 
next  'OUT'  to  that  port.  The  logic  levels  on--.!  '->v  the 
parallel  ports  are  the  TTL  levels  mentioned  earlier, 
however,  the  maximum  input  voltage  is  5.5  volts.  Therefore, 
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some  buffer  device  is  required  between  the  DTL  output  of  the 

v.-Z  tichsrnc-l  analyzer  and  the  77L  input  of  the  microcomputer 

parallel  port. 

Interface  Board.  Buffering,  input  routing,  and 
interupt  control  are  performed  by  devices  on  the  interface 
board.  Input  routing  is  necessary  because  there  are  41 
output  lines  from  the  multichannel  analyzer  and  24  input 
lines  to  the  single  board  computer.  One  reset  and  two 
interupt  buttons  on  the  interface  board  provide  control  over 
the  single  board  computer.  A  one-digit  display  connected  to 
4  bits  of  a  spare  output  port  provides  a  status  monitor 
which  was  used  in  interface  testing.  An  additional  function 
of  the  interface  board  is  to  hold  the  cable  connectors  for 
cables  leading  to  the  multichannel  analyzer. 

These  functions  are  diagrammed  in  Figure  2,  which 
depicts  signal  flow  in  a  block  diagram.  The  inverters  are 
used  as  buffers  to  convert  DTL  levels  to  TTL.  The  box 
labeled  MUX  connects  one  set  of  24  input  lines  or  the  other 
to  the  three  8-bit  input  ports.  Which  set  is  selected 
depends  on  the  logic  level  of  the  select  line.  The  debounce 
circuits  allow  only  one  interupt  per  push  of  the  button  even 
though  the  switch  contacts  may  make  multiple  contacts.  The 
box  marked  LED  is  a  light-emitting-diode  display  of  a  digit 
0  to  9  or  a  letter  A  to  F  depending  on  the  hexadecimal  value 
of  the  4  output  lines. 

The  TTL  logic  devices  were  selected  not  only  for  the 
function  they  performed  but  also  because  they  were  readily 
available.  The  74LS04  inverter  was  chosen  because  its  input 
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voltage  specification  is  +7  volts  maximum.  Each  integrated 
circuit  contains  6  inverters  so  7  circuits  are  required  to 
buffer  the  41  DTL  lines  from  the  multichannel  analyzer. 
After  buffering  through  the  inverters,  the  signals  are 
applied  to  type  74157  2-line  to  1-line  data 
selectors/multiplexers.  With  4  output  lines  per  integrated 
circuit,  6  circuits  are  required  for  24  lines  input  to  the 
microcomputer.  Two  of  the  circuits  were  changed  to  type 
74158  devices  (which  inverts  its  outputs)  because  one  of  the 
input  ports  inverts  its  signals  and  the  other  two  input 
ports  do  not  invert  their  signals.  The  devices  and  assorted 
hardware  were  laid  out  as  in  Figure  3  on  the  interface  card 
which  plugs  into  one  slot  of  the  card  cage.  The  devices  are 
connected  together  with  wire-wrap  as  depicted  in  the 
schematics  of  figures  4  and  5. 

Random  Access  Memory  (RAM)  Board.  Also  plugged  into 
the  card  cage  is  an  Intel  SBC016  board  providing  16,384 
bytes  of  additional  data  storage.  The  additional  RAM  is 
used  for  three  purposes.  The  4096  bytes  of  program  are 
moved  from  EPROM  to  RAM  before  execution.  In  this  manner, 
changes  can  be  made  in  a  program  under  development  without 
having  to  erase  and  reprogram  the  EPROMS.  Approximately 
1000  bytes  of  RAM  are  used  for  COMMON  data  storage  (sec 
software  section  for  details) .  The  remaining  rytes  are 
used  to  store  about  2800  channels  of  multichannel  rnalyrcr 
data.  While  the  present  board  is  sufficient  !  ol  vsten 
testing,  a  32,768  byte  RAM  board  is  required  to  c  :  it  and 
time  the  full  4096  channel  capability  of  the  multichannel 
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Pig  5.  Interface  Board  Output,  Interupt,  and  Devices 
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Terminal .  The  final  hardware  item  required  is  a 
communications  terminal  to  send  commands  to  and  receive 
output  from  the  microcomputer.  Again,  availability  was  the 
driving  factor  in  selecting  the  terminal  to  be  used.  The 
terminal  is  a  CDC  communications  terminal  modified  locally 
to  interface  with  the  standard  serial  protocol  (RS232C). 
The  terminal  operates  at  300  baud  (bits  per  second,  30 
characters  per  second)  and  provides  keyboard  input  and 
printed  output.  The  terminal  connects  with  a  flat  cable  and 
edge  connector  to  the  front  of  the  single  board  computer. 

Hardware  Summary.  From  available  hardware,  a 
microcomputer  system  was  assembled.  Each  of  the  components 
(except  the  terminal)  plugs  into  the  card  cage.  The  card 
cage  itself  is  mounted  on  a  chassis  with  a  power  supply  for 
each  of  the  voltages  required  (+5,  -5,  +12,  -12  volts  DC) . 
The  card  cage  and  power  supplies  were  salvaged  from  a 
previous  thesis  project  (Ref  3) .  After  the  system  was 
assembled  and  the  interface  board  designed  and  built,  the 
interface  was  bench  tested.  Test  procedures  and  results  are 
described  in  Appendix  B. 

Software 

Because  no  mass  storage  device  (disk,  magnetic  tape, 
paper  tape)  was  available,  software  for  the  demonstration 
system  was  developed  on  another  system.  This  system  was  the 
Intellec  Series  II  Model  210,  with  two  8-inch  floppy  disk 
drives,  manufactured  by  Intel  Corporation.  Software  was 
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dc-"1 ~ped  under  the  ISIS-II  (V4.0)  operating  system  (Ref  4). 
Once  the  software  programs  had  been  developed  and  tested  on 
the  development  system,  the  programs  were  "burned"  into 
Erasable  Programmable  Read  Only  Memory  (EPROM)  in  the  form 
of  absolute  machine  code.  The  EPROMS  were  then  inserted 
into  sockets  on  the  single  board  computer  and  the  programs 
were  executed  on  the  microcomputer. 

Functions.  The  programs  are  used  to  perform  the 
various  functions  of  gamma  ray  spectroscopy.  Many  functions 
are  desirable;  but,  due  to  limitations  in  the  amount  of 
EPROM  storage  and  time  available  for  this  research,  only  the 
most  important  could  be  implemented.  The  first  function 
implemented  must  be  the  transfer  of  data  from  the  channels 
of  the  multichannel  analyzer  to  the  memory  of  the 
microcomputer.  The  spectrum  in  memory  can  then  be  scanned 
for  peaks.  When  a  peak  is  detected,  its  limits  are  found, 
background  is  determined  and  subtracted  from  a  sum  of  counts 
under  the  peak  to  obtain  net  peak  area.  At  the  same  time 
the  peak  location  is  determined.  These  three  functions  are 
called  peak  detection,  net  peak  area  determination,  and  peak 
location.  The  final  basic  function  implemented  was  energy 
calibration. 

Source  Languages.  The  functions  described  above  were 
implemented  by  programs  written  in  either  8080  Assembly 
Language  with  Intel  opcodes  (Ref  5)  or  FORTRAN  (Ref  6) . 
FORTRAN  is  the  language  of  choice  because  it  is  a  high  level 
language,  a  compiler  for  it  is  available,  and  nuclear 
engineers,  who  are  expected  to  continue  this  project,  are 
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FORTRAN  or  are  unwieldy  or  time  and  space  consuming, 
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assembly  language  coding  was  used. 

Modules.  The  particular  reason  for  coding  in  a  given 
language  will  be  stated  for  each  of  the  modules  of  the 
demonstration  system  software.  Also  discussed  for  each 
module  will  be  the  purpose,  algorithm  and  limitations  of  the 
module  and  its  sub-modules.  Compilation/assembly  listings 
of  each  module  are  located  in  Appendix  A.  The  structure  of 
the  programs  written  for  this  study  is  shown  in  Table  IV; 
the  modules  will  be  discussed  in  that  order. 

The  MONIT  module  is  the  first  module  executed.  It 
performs  the  functions  of  an  operating  system: 

-  Copy  programs  from  EPROM  to  RAM  for  execution. 

-  Initialize  the  serial  input/output  channel,  baud  rate 
timer,  parallel  input/output  ports,  and  interupt  controller. 

Accept  commands  to  display  memory  contents  (D) , 
change  memory  contents  ( S ) ,  or  start  program  execution  at  a 
particular  memory  location  (G) . 

Provide  the  lowest  level  serial  input  and  output 
routines. 

The  MONIT  module  is  written  in  Assembly  Language  because  of 
its  low-level  input/output  and  machine-control  functions. 
The  subroutines  contained  in  MONIT  are  Cl  and  CO.  Cl  reads 
one  character  from  the  terminal  keyboard  and  CO  prints  one 
character  on  the  terminal  printer.  MONIT  provides  the 
minimum  number  of  commands  to  allow  program  debugging.  A 
far  more  sophisticated  monitor  is  supplied  with  the  single 
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Table  IV 


{ 

Demonstration  System  Program  Structure 
Level  1234  Purpose 

MONIT  Initialize  and  perform  debug 

functions 

GAMMA  Call  subroutines  in  sequence 

GETDAT  Get  data  from  multichannel 

analyzer 

PKSRCH  Scan  spectrum  to  detect  peaks 

PKPROC  Process  each  peak  for  location 
and  area 

ENCAL  Perform  energy  calibration 

Support  Routines 

INT4  Perform  32-bit  integer 

arithmetic 

ASSEM  Provide  formatted  input  and 

output 

board  computer  but  that  monitor  occupies  2048  of  the  4096 
available  bytes  of  program  storage.  MONIT  only  uses  502 
bytes.  The  default  address  for  the  G  command  (begin  program 
execution)  is  the  first  location  of  the  GAMMA  module. 

The  GAMMA  module's  only  function  is  to  call  its 
subordinate  routines  in  sequence-.  It  is  written  in  assembly 
language  because  it  originally  performed  the  parallel  port 
initialization  and  also  because  it  is  shorter. 

GETDAT  is  the  first  module  called  by  GAMMA,  and  is  also 
written  in  assembly  language  for  two  reasons.  GETDAT 
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p:  "ms  the  manipulation  of  the  parallel  ports  which  causes 
the  multichannel  analyzer  to  sequence  through  its  channels 
and  send  their  counts  across  the  interface.  Bit-oriented 
input/output  is  the  primary  reason  for  coding  in  assembly 
language.  The  channel  counts  are  then  converted  from  6 
Binary  Coded  Decimal  (BCD)  digits  to  a  32-bit  binary  integer 
representation  and  stored  in  memory.  GETDAT  asks  the  user 
how  many  channels  to  transfer.  An  answer  of  zero  implies 
that  previous  data  is  to  be  used.  The  maximum  number  of 
channels  transferred  is  4096,  so  a  small  savings  in  the  time 
to  transfer  one  channel  can  make  a  big  difference  in  the 
time  required  to  complete  a  full  transfer.  Saving  time  is 
the  second  reason  to  code  in  assembly  language. 

PKSRCH ,  however,  is  written  in  FORTRAN  because  it 
involves  a  number  of  arithmetic  calculations  which  are  much 
easier  to  express  in  the  algebraic  syntax  of  FORTRAN.  The 
name  PKSRCH  is  a  contraction  of  "Peak  Search",  which 
expresses  the  purpose  of  this  module.  The  spectrum  is 
scanned,  and  each  peak  which  meets  the  detection  criteria  is 
identified.  The  algorithm  used  is  from  a  program  nam^j 
GAMMA  (Ref  7) ,  which  is  currently  used  at  the  Air  Force 
Institute  of  Technology  to  reduce  gamma-ray  spectra  on  the 
large  mainframe  Cyber  series  computers.  The  current  program 
was  originally  written  by  David  Guice  (Ref  8)  who  obtained 
the  peak  search  algorithm  from  a  published  paper  (Ref  9) .  A 
measure  of  curvature  is  computed  at  each  point  of  the 
spectrum  and  compared  with  a  background  value  (50  channel 
forward  average).  If  the  ratio  exceeds  a  user  specified 
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criteria,  then  a  peak  has  been  detected.  The  PKSRLI!  routine 

determines  the  first  and  last  channel  at  which  the  criteria 
are  exceeded  and  passes  the  channel  numbers  to  the  PKPROC 
module.  To  reduce  the  number  of  EPROM  bytes  occupied  by  the 
PKSRCH  routine,  the  algorithm  was  limited  to  a  fixed  peak 
width.  This  peak  width  is  defined  by  its  Full  Width  at  Half 
Maximum  (FWHM)  at  3  channels.  This  value  is  appropriate  for 
most  of  the  gamma-ray  spectroscopy  accomplished  with  this 
multichannel  analyzer  (Germanium-Lithium  Drifted  detector 
with  4096  channels  spanning  an  energy  of  approximately  2 
Mev) .  Future  implementations  which  do  not  have  a  program 
space  limitation  should  make  other  peak  widths  available  as 
an  option.  In  summary,  PKSRCH  performs  the  peak  detection 
function  by  finding  the  sharp  change  of  slope  at  a  peak. 

PKPROC  performs  the  other  peak  functions:  locate  and 
compute  area.  With  its  many  arithmetic  calculations,  PKPROC 
is  a  natural  for,  and  was  originally  written  in,  the  FORTRAN 
Language.  However,  because  it  was  the  largest  module  in  the 
entire  program  it  was  the  best  candidate  for  recoding  in 
assembly  language  when  the  entire  program  was  too  large  to 
implement.  The  FORTRAN  source  code  has  also  been  included 
in  Appendix  A  and  should  be  used  for  any  future 
implementation.  The  name  PKPROC  is  a  contraction  of  "Peak 
Process".  Processing  is  accomplished  in  several  steps  which 
are  illustrated  in  Figure  6. 

-  The  channels  between  the  curvature  limits  supplied  by 
PKSRCH  are  scanned  for  the  channel  with  the  maximum  number 
of  counts. 
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Pig  6.  Processing  a  Typical  Peak 

-  From  the  maximum  channel,  a  scan  is  made  to  the  left 
to  find  a  local  minimum.  In  other  words,  the  scan  is 
continued  as  long  as  the  channel  counts  are  monotonically 
decreasing.  A  limit  of  20  channels  is  placed  on  the  scan. 

-  A  scan  is  made  to  the  right  from  the  maximum  channel; 
also  searching  for  a  local  minimum.  The  scan  is  terminated 
at  10  channels  even  if  the  counts  are  still  decreasing. 

-  The  left  and  right  minima  are  defined  as  the  peak 
boundaries  and  the  channel  counts  at  those  points  are 
assumed  to  be  the  background  value  at  those  points. 

-  A  trapezoidal  background  is  assumed  bv  constructing  a 
straight  line  between  left  and  right  minima. 


Counts(R)  -  Counts(L) 

Slope  =  -  (I) 

R  -  L 

Where, 
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L  =  Channel  Number  of  Left  Bound 

R  =  Channel  Number  of  Right  Bound 


Counts  (i)  =  Counts  in  Channel  i 


-  Three  sums  are  computed  during  a  scan  from  the  left 
to  the  right  boundary.  One  sum  is  of  total  counts  in  each 
channel,  another  is  of  net  counts  after  subtracting 
background  calculated  for  that  channel,  and  the  last  is  of 
net  counts  times  channel  number. 

R 

Total  =  V  Counts  (i)  (2) 

i  =  L 


Net  (i) 


Area 


Counts(i)  -  Slope  x  (i-L)  -  Counts(L) 

(3) 


(4) 


Firstm 


R 

^  Net(i)  x  i 
i  =  L 


(5) 


The  third  sum,  when  divided  by  the  second  sum  is  the  first 
moment  of  the  peak. 


Centroid  =  Firstm  /  Area 


(6) 


If  the  peak  is  an  approximation  of  a  gaussian  distribution 
(tailing  effects  are  ignored) ,  then  the  first  moment  of  the 
peak  is  the  best  estimate  of  its  centroid  (Ref  10:68-69) . 

As  PKPROC  performs  these  steps  it  prints  the  following 
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information  about  the  peak: 

-  sequential  number  to  identify  the  peak, 

-  curvature  limits  passed  by  PKSRCH, 

-  channel  with  maximum  counts, 

-  whether  limits  were  encuntered  in  searching  for  peak 
boundaries , 

-  boundaries  used, 

-  total  counts, 

-  net  counts,  and 

-  peak  location  to  one  tenth  channel. 

This  algorithm  is  rather  limited.  It  does  not  recognize 
doublet  peaks,  uses  only  two  channels  to  determine 
background  at  the  peak  location,  and  will  use  a  one-channel 
minimum  to  define  peak  boundary.  Any  follow-on  program  not 
space  limited  should  at  least  implement  the  full  algorithm 
contained  in  program  GAMMA  (Ref  7) .  A  further  limitation  is 
the  assumption  of  a  30  channel  maximum  peak  width,  which  is 
acceptable  for  the  present  use  but  should  be  made  a  user 
specified  parameter. 

ENCAL  is  also  limited  in  that  it  performs  an  energy 
calibration  based  on  only  two  peaks,  assumes  linear  energy 
dependence  on  channel  number,  and  requires  that  the  spectrum 
calibrated  contain  the  calibration  peaks.  Energy 
calibration  is  performed  by  obtaining  peak  number  and  energy 
from  the  user  for  two  peaks,  calculating  the  slope  and 
offset,  and  calibrating  each  peak  in  energy  by  the  1  inear 
equation : 


30 


Energy  =  Offset  +  Slope  x  Channel 


(7) 


ENCAL  is  coded  in  FORTRAN  because  it  performs  arithmetic 
calculations  Energy  calibration  is  the  last  of  the  gamma 
ray  spectroscopy  functions  which  has  been  implemented  on 
this  demonstration  system.  The  next  two  modules  contain  the 
common  subroutines  called  by  several  of  the  previous 
modules . 

The  INT4  module  contains  15  subroutines  which  perform 
32-bit  integer  arithmetic .  These  routines  were  written 
because  the  floating  point  subroutines  which  are  part  of  the 
FORTRAN  package  take  up  too  much  program  space.  An 
additional  benefit  of  integer  routines  is  that  they  operate 
faster.  The  FORTRAN  integer  routines  could  not  be  used 
because  they  only  permit  integer  values  between  -32768  and 
32767.  The  maximum  counts  in  a  channel  is  999999.  In  order 
to  be  able  to  use  FORTRAN  coded  routines,  it  was  decided  to 
use  real  variables  to  hold  those  values  in  excess  of  the 
16-bit  limits.  The  FORTRAN  floating  point  routines  were 
replaced  by  32-bit  integer  routines  of  the  same  name.  In 
some  cases,  variables  with  non-integer  values  were  required. 
The  slope  of  the  background  line  used  in  PKPROC  is  a  good 
example.  To  handle  these  cases,  scaled  integers  were  used. 
A  scale  factor,  that  was  ten  to  a  power,  was  chosen  for  each 
variable.  The  value  stored  and  manipulated  was  the  integer 
nearest  to  the  actual  value  times  the  scale  factor.  The 
manipulation  routines  are  listed  in  Table  V  with  their  name 
and  purpose.  Most  of  the  routines  take  two  arguments.  The 
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Table  V 


32-Bit  Integer  Arithmetic  Routines  of  Module  INT4 


Name 

Purpose 

FMUL10 

Multiply  by  10 

FQFABS 

Absolute  value 

FQFAD4 

Add 

FQFCLR 

Clear  accumulator 

FQFCM4 

Compare 

FQFDV4 

Divide 

FQFERH 

Report  error 

FQFFLM 

Same  as  FQFLD4 

FQFLD4 

Load  accumulator 

FQFML4 

Multiply 

FQFMP4 

Same  as  FQFML4 

FQFNEG 

Negate 

FQFSB4 

Subtract 

FQFSET 

Same  as  FQFCLR  (See  note) 

FQFST4 

Store  accumulator 

Note:  Calling  sequence  is  different  for  FQFSET 


first  argument  is  a  12  byte  area  in  memory  which  is 
logically  divided  into  three  4-byte  registers  named  ACC, 
EXT,  and  AUX.  The  ACC  register  is  the  place  where  one 
operand  is  stored  on  entry  and  the  result  is  stored  on  exit. 
The  EXT  register  is  an  extension  of  the  ACC  register  and  is 
used  during  multiply  and  divide  operations.  The  AUX 
register  is  used  during  multiply  and  divide  operations  to 
hold  the  absolute  value  of  the  second  operand,  if  that 
operand  was  originally  negative.  A  significant  feature  of 
these  routines  is  that  the  number  of  bytes  for  enc;  operand 
is  specified  by  a  parameter.  In  other  words,  to  produce 
24-bit  or  64-bit  integer  arithmetic  routines  it  would  only 
be  necessary  to  change  one  character  of  the  source  and 


re-  ~mble  the  routines.  No  comparable  routines  v/ere  found 
in  the  literature  or  were  known  to  the  faculty  of  the 
Electrical  Engineering  Department  of  the  Air  Force  Institute 
of  Technology.  The  closest  routines  that  could  be  found 
were  floating  point  arithmetic  routines  (Ref  11) .  The 
general  algorithms  used  were  from  Flores  (Ref  12) .  In 
summary,  the  INT4  module  contains  32-bit  integer  arithmetic 
subroutines  which  replace  the  FORTRAN  floating  point 
arithmetic  subroutines. 

The  ASSEM  module  contains  six  subroutines  written  in 
assembly  language  for  compactness.  All  but  one  subroutine 
can  be  called  from  a  FORTRAN  program  and  together  they 
replace  the  FORTRAN  input  output  package.  The  subroutines 
are  individually  discussed  below. 

CRLF  defines  the  end  of  a  printed  line  by  sending  the 
carriage  return  and  linefeed  characters  to  the 
communications  terminal.  After  each  of  the  characters,  a 
special  character  called  a  synchronous  idle  is  sent.  The 
idle  is  not  printed  and  is  only  sent  because  the  particular 
terminal  used  with  this  system  under  some  circumstances  will 
not  process  the  character  following  a  carriage  return.  No 
routine  in  this  program  sends  carriage  return  or  line  feed 
characters  except  CRLF. 

ININT  obtains  an  integer  reply  from  the  user.  One  of 
the  other  subroutines  is  used  to  print  a  question  which  can 
be  answered  with  a  non-negative  integer  less  than  32,767. 
The  user  indicates  his  reply  by  typing  the  digits  followed 
by  a  carriage  return  on  the  terminal  keyboard.  ININT  is 
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called  with  two  arguments.  The  first  is  an  integer  variable 
which  will  be  assigned  the  reply  value,  and  the  second  is  a 
default  value  which  will  be  assigned  to  the  variable  if  the 
user  types  carriage  return  without  any  digits.  No  edit 
capability  (such  as  backspace)  is  provided,  but  a  value  too 
large  or  an  invalid  character  will  cause  the  message 
"INVALID,  TRY  AGAIN"  to  be  printed,  and  the  user  can  then 
enter  the  correct  value. 

OUTCHR  can  be  used  to  ask  the  question  for  which  ININT 
receives  the  reply.  OUTCHR  is  called  with  one  argument,  a 
character  string  between  single  quotation  marks  (').  The 
string  is  printed  by  the  communications  terminal. 

OUTSTR  performs  the  same  function  as  OUTCHR  but,  in 
assembly  language,  is  easier  to  call  than  OUTCHR.  OUTSTR  is 
the  one  subroutine  in  the  ASSEM  module  which  cannot  be 
called  from  a  FORTRAN  coded  routine. 

OUTINT  is  used  to  print  integer  results.  It  is  called 
with  two  arguments.  The  first  is  an  integer  variable  whose 
value  should  be  non-negative.  The  value  is  printed  as  a 
string  of  decimal  digits.  If  the  number  of  digits  is  less 
than  the  value  of  the  second  argument,  then  enough  spaces 
will  be  printed  before  the  string  of  digits  so  that  the 
entire  string  will  be  as  long  as  the  second  argument  value. 
The  purpose  of  the  second  argument  is  to  provide  a  means  for 
printing  tables  of  numbers  with  columns  whose  r'oh.t  edge 
line  up  vertically.  The  construct  is  similar  to  FORTRAN 
formatted  output. 

OUTFLT  also  produces  formatted  output.  The  first  of 
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t’.: :  rgunents  is  a  real  variable  which  contains  a  32-bit 
signed  integer  which  is  scaled.  (Real  variables  with  32-bit 
integer  values  were  explained  above  in  the  paragraph  on  the 
xNT4  module.)  The  second  argument  serves  two  functions. 
The  first  function  is  to  provide  the  scale  of  the  integer; 
that  is,  the  location  of  the  decimal  point.  A  scale  of  zero 
means  there  is  no  decimal  point;  larger  values  indicate  the 
number  of  digits  after  the  decimal  point.  The  second 
function  of  the  second  argument  is  to  specify  the  minimum 
length  of  the  string  of  output.  It  is  used  the  same  way  as 
the  second  argument  of  the  OUTINT  subroutine.  The  value  of 
the  second  argument  of  the  OUTFLT  subroutine  is  SCALE  x  100 
+  LENGTH.  This  encoding  scheme  limits  the  minimum  length 
parameter  to  99,  but  that  is  long  enough  for  any 
contemplated  use.  The  output  produced  by  the  OUTFLT  routine 
is: 

-  a  minus  sign  if  the  value  is  negative, 

-  at  least  one  digit  even  if  zero, 

-  a  decimal  point  if  scale  is  greater  than  zero, 

-  a  string  of  digits  whose  length  equals  scale. 

-  If  the  length  of  the  string  of  characters  is  less 
than  the  minimum  length  specified  in  the  second  parameter, 
then  spaces  are  inserted  before  the  string  to  make  its 
length  equal  the  minimum. 

Together,  these  six  subroutines  provide  an  extensive 
input/output  capability  to  che  FORTRAN  and  assembly  language 
modules. 

Software  Summary.  The  modules  are  assembled  or 
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compiled  separately  and  linked  together  cc  a  single  program 

with  absolute  addresses.  The  absolute  program  is  then 
written  into  4  EPROMs,  and  the  EPROMs  are  installed  in  the 
single  board  computer.  The  single  board  computer,  the 
random  access  memory  board,  and  the  interface  ^oard  are 
inserted  in  the  card  cage,  and  cables  are  connected  between 
the  interface  card  and  the  multichannel  analyzer.  At  this 
point,  the  demonstration  system  is  ready  to  be  tested. 

Evaluation  of  the  Demonstration  System 

The  purpose  of  the  demonstration  system  was  to 
determine  whether  a  microcomputer  connected  to  the  Nuclear 
Data  Series  2200  System  Analyzer  could  be  used  for  analysis 
of  gamma-ray  spectra.  The  determination  requires  answers  to 
the  questions: 

-  Does  it  work? 

-  How  long  does  it  take? 

-  Is  there  room  left  for  additional  functions? 

Performance .  The  complete  demonstration  system  has  not 

been  successfully  operated.  The  transfer  of  data  from  the 
multichannel  analyzer  has  been  successful.  The  other 
analyzer  functions  have  been  executed  on  the  software 
development  system  and  produced  the  expected  results  on 
limited  test  data.  The  only  portion  of  the  program  which  is 
known  to  be  not  working  is  the  first  portion  of  t; e  MONIT 
module  which  copies  the  program  from  EPROM  to  RAM.  Based  on 
extrapolation  from  these  separate  tests  it  is  possible  to 
state  that  the  system  will  work  when  the  remaining  minor 
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problems  are  resolved.  The  limitations  mentioned  in  the 

software  section  reduce  the  usefulness  of  the  system,  but 
they  are  not  limitations  of  the  approach  but  only  the  method 
of  program  storage.  But  even  with  the  limitations,  the 
following  capabilities  have  been  added  to  the  multi-channel 
analyzer:  peak  detection,  peak  location,  net  area 
computation,  and  energy  calibration. 

Timing.  Each  of  these  functions  has  been  timed.  In 
the  case  of  peak  location,  net  area  computation,  and  energy 
calibration  the  computation  for  each  peak  takes  less  time 
than  printing  the  result  for  that  peak.  Therefore,  the  time 
required  for  these  functions  is  determined  by  the  output 
device  used.  Even  with  the  300  baud  (30  characters  per 
second)  printer  used,  data  was  printed  at  6  seconds  per  peak 
or  5  minutes  for  50  peaks.  For  the  remaining  functions, 
reveals  the  program  execution  speed.  Transfer  of  4096 
channels  from  the  multichannel  analyzer  to  the  microcomputer 
took  54  seconds.  A  scan  for  peaks  of  4096  channels  took  2 
minutes  58  seconds.  In  both  cases,  the  times  are  limited  by 
the  time  required  to  perform  a  multiplication  or  division  of 
32-bit  integers.  These  times  are  tolerable;  they  imply  a 
complete  spectrum  analysis  in  4  minutes  for  one  peak  and  6 
minutes  for  50  peaks.  Additional  functions  will  add  to  this 
time.  As  an  extreme  example,  data  smoothing  is  expected  to 
take  between  2  and  4  minutes  for  4096  channels.  These 
results  represent  a  significant  improvement  over  the  present 
alternative  of  1  to  3  days. 

Memory.  Additional  functions  will  also  take  more 
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memory,  so  it  is  imperative  to  examine  how  much  memory  space 
has  been  used  by  the  current  system.  The  uses  for  memory 


can  be  divided  into  essentially  3  areas:  program  storage, 
temporary  data  storage,  and  common  data  storage.  Program 
storage  has  been  limited  by  the  available  system  to  4096 
bytes.  It  is  contemplated  that  program  storage  would  grow 
to  fill  any  possible  allocation  as  additional  functions  were 
added.  Temporary  data  storage  refers  to  temporary  variables 
maintained  by  various  subroutines  whose  values  are  not 
preserved  between  calls  to  that  subroutine.  Stack  space 
falls  in  this  category.  Space  required  for  temporary  data 
is  less  than  432  bytes.  The  stack  has  never  overflowed,  but 
it  is  not  known  how  much  smaller  it  could  be.  Common  data 
storage  includes  20  bytes  per  peak  analyzed,  4  bytes  per 
channel  stored,  and  36  bytes  general  overhead.  Currently 
4096  channels  and  50  peaks  are  allocated  for  a  total  of 
17420  bytes.  Storage  generally  comes  in  16384  byte 
increments,  so  32768  bytes  of  storage  are  required  to 
analyze  4096  channel  spectra.  Based  on  the  limitations 
imposed  on  the  demonstration  system  by  the  4096  byte  limit 
on  program  storage,  it  is  also  clear  that  any  future  system 
will  need  more  memory  devoted  to  program  storage. 

Summary 

Using  available  equipment,  a  microcomputer  system  has 
been  assembled;  and  an  interface  to  the  channel 
analyzer  has  been  designed,  built,  and  tested.  S'rt\  ;  :  -  for 
the  demonstration  system  has  been  written,  com  ailed,  and 
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integrated,  but  only  partially  tested.  Based  on  the  partial 
test  results  and  timing  of  the  incomplete  system,  the 
concept  has  been  proven  feasible  and  definite  indications 
have  been  found  as  to  what  shape  the  next  system  should 
take. 
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Ill .  Proposed  System 


( 


This  section  describes  characteristics  proposed  for 
inclusion  in  a  system  to  be  developed  specifically  to 
enhance  gamma  ray  spectroscopy  on  the  existing  multichannel 
analyzer.  The  first  portion  describes  the  hardware  that 
should  be  purchased,  the  second  portion  identifies  the 
software  that  should  be  written,  and  the  final  portion 
discusses  hardware  cost  as  compared  to  current  multichannel 
analyzers  which  have  enhanced  capabilities. 

Hardware 

The  discussion  will  not  identify  specific  pieces  of 
equipment  by  manufacturer  and  part  number,  but  rather  will 
indicate  the  desirable  and  mandatory  characteristics  the 
equipment  should  exhibit. 

Microcomputer .  The  first  equipment  item  selected 
should  be  the  microcomputer,  because  the  other  equipment 

must  be  compatible  with  the  microcomputer.  The  system 

; 

selected  should  be  available  "off  the  shelf"  to  avoid  long 
delays  while  obtaining  parts  or  designing,  building,  and 
correcting  a  new  system.  Existing  systems  also  lave  many 
compatible  peripherals  available.  The  micr ocomputc r  should 
have  an  accessible  bus  structure  with  a  number  v "  .-lots 
available.  Spare  slots  should  be  available  af:  .  1 the 

basic  equipment  is  attached  so  that  additional  capabilities 
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can  be  added  later.  A  major  division  exists  betv;een  3  bit 
and  16  bit  microcomputers.  Very  briefly,  16  bit  machines 
are  faster  and  more  expensive.  The  demonstration  system  was 
an  8  bit  machine,  and  its  speed  was  shown  to  be  adequate  for 
gamma  ray  spectroscopy.  In  addition,  software  developed  for 
the  demonstration  system  can  be  used,  in  part,  on  a  new 
system  if  the  new  microcomputer  is  based  on  the  Intel  8080 
or  Zilog  Z-80  microprocessor.  So,  unless  other 
considerations  (such  as  availability  through  the  procurement 
system)  warrant  a  change,  an  8  bit  microcomputer  is 
recommended . 

Memory.  The  microcomputer  will  determine  the  form  of 
memory,  but  it  can  be  stated  that  32,768  eight-bit  bytes  is 
the  minimum  required  to  analyze  spectra  from  a  4096  channel 
analyzer.  Additional  memory  will  increase  the  amount  of 
program  available  at  one  time  and  will  therefore  increase 
processing  speed.  Additional  memory  will  also  make  possible 
some  additional  application  programs  and  make  it  easier  to 
use  programs  originally  developed  for  larger  machines.  At 
least  65536  bytes  of  memory  should  be  purchased. 

Disk  Drives.  A  mandatory  peripheral  for  the  next 
system  is  one  or  more  disk  drives.  A  disk  drive  will  make 
it  possible: 

-  to  develop  software  on  the  system, 

-  to  run  overlayed  programs  which  are  larger  than  the 
memory  size, 

-  to  save  gamma  ray  spectra  for  comparison  with  others 
or  for  archives,  and 
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-  to  maintain  a  library  of  nuclides  and  their  gamma  ray 

signatures. 

A  lack  of  a  bulk  storage  medium  was  the  single  factor  which 
most  limited  the  demonstration  system. 

Once  the  decision  to  buy  a  disk  drive  is  made,  the 
option  to  buy  more  than  one  should  be  examined.  There  are 
many  times  when  two  disk  drives  are  very  useful,  the  primary 
being  when  the  information  on  one  diskette  is  being  copied 
to  another.  This  operation  occurs  rather  frequently  to  back 
up  the  information  in  case  the  original  becomes  unreadable. 
The  alternative  is  to  read  a  portion  into  memory,  change 
disks  in  the  one  drive  available  and  write  the  portion  on 
the  second  disk.  The  disks  are  changed  again  and  the 
operation  repeated  several  times  until  all  the  information 
is  transferred.  Not  only  is  this  a  tedious  process  but  also 
prone  to  error  which  may  result  in  the  destruction  of  the 
very  information  which  was  being  preserved. 

Many  disk  drives  are  available,  but  the  basic  choice  is 
between  a  5  inch  floppy  disk,  an  8  inch  floppy  disk,  and  a 
hard  disk.  The  trade  off  is  between  storage  capacity  and 
cost.  The  hard  disk  costs  the  most,  stores  the  most,  and  is 
the  most  reliable.  However,  for  archival  storage,  many 
disks  would  be  required,  and  hard  disks  are  extremely 
expensive  compared  to  floppy  disks.  The  8  inch  floppy  is 
recommended  because  each  disk  stores  five  time?  ns  much 
information  as  the  5  inch  floppy  disk  but  the  ..  drive 
only  costs  twice  as  much  and  the  disks  themselves  are  about 
the  same  price.  In  addition,  the  8  inch  floppy  is  the  most 
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common  drive  for  microcomputer  systems. 

High  Speed  Math  Unit.  Many  microprocessor  systems  have 
a  hardware  device  available  which  provides  arithmetic 
operations  on  32-bit  floating  point  operands  at  high  speed. 
Since  many  arithmetic  operations  are  performed,  the  time 
required  to  analyze  a  gamma-ray  spectrum  is  directly 
dependent  on  the  speed  of  the  arithmetic  operations.  A  high 
speed  math  unit  would  increase  the  speed  of  analysis  and 
also  reduce  the  amount  of  memory  taken  up  by  programs. 
While  highly  desirable,  the  high  speed  math  unit  is  not 
absolutely  necessary.  The  microcomputer  purchased  should, 
however  have  the  capability  to  add  the  unit  later  when  new 
programs  are  added  which  would  be  useful  if  only  they 
operated  faster. 

Terminal .  The  final  piece  of  hardware  for  the  proposed 
system  is  a  communications  terminal.  Through  this  terminal 
the  user  will  communicate  with  the  microcomputer.  Because 
of  the  conflicting  requirements  of  hard  copy  and  spectrum 
display,  the  terminal  will  probably  be  more  than  one  piece 
of  equipment.  At  the  very  least  the  terminal  will  consist 
of  a  keyboard  and  a  printer.  The  keyboard  is  necessary  to 
type  in  programs  during  software  development  and  will 
probably  be  used  to  select  modes  of  operation  and  other 
choices  during  spectrum  analysis.  The  printer  is  necessary 
to  record  results  of  analysis  and  program  listings. 

Another  option  for  a  communications  terminal  ■. ;  il.'  be  a 
cathode  ray  tube  (CRT)  terminal  with  a  keyboard  and  screen 
with  a  separate  printer.  It  is  easier  to  enter  programs  in 
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dc  ' ' pncnt  and  display  intermediate  results  in  operation 
with  a  CRT  terminal.  If  the  terminal  has  a  graphics 
capability,  then  a  spectrum  display  could  be  generated  on 
the  terminal.  Some  form  of  spectrum  display  is  essential 
and,  while  the  display  currently  provided  by  the 
multichannel  analyzer  is  adequate,  a  microcomputer  driven 
display  would  be  much  more  versatile. 

An  alternate  display  option  would  be  to  connect  a 
digital  to  analog  converter  between  the  microcomputer  and  an 
oscilloscope.  This  scheme  has  the  advantage  of  being  cheap 
and  easy  to  implement  in  hardware,  but  requires  software 
development,  a  large  fraction  of  the  microcomputer 
processing  time  while  the  display  is  running,  and  a  sizable 
amount  of  memory.  A  separate  processor  with  its  own  memory 
could  be  built,  but  this  is  just  the  description  of  a 
graphics  terminal. 

The  terminal  could  also  have  exotic  methods  of  user 
input  in  addition  to  the  keyboard.  A  paddle,  joystick,  or 
light  pen  in  conjunction  with  the  spectrum  display  would 
make  it  easier  to  specify  particular  regions  or  peaks  in  the 
spectrum  during  analysis.  With  a  menu  of  various  input 
options  or  modes  of  operation  displayed,  any  one  of  the 
alternate  inputs  would  make  selections  easy. 

Many  directions  are  available  in  the  choice  of  a 
communications  terminal.  The  basic  needs  which  must  be 
satisfied  are  a  keyboard  and  some  form  of  hard  copy  output. 
Spectrum  display  is  highly  desirable  and  analog  input  is 
nice  to  have.  Many  options  are  also  available  in  the  rest 
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of  the  system.  An  8  bit  microcomputer  with  at  least  two 

open  slots,  as  much  memory  as  possible,  and  two  8  inch 
floppy  disk  drives  are  recommended. 

Software 

All  the  hardware  mentioned  above  is  not  useful  without 
software.  This  section  will  discuss  some  of  the  general 
characteristics  that  the  software  for  analysis  of  gamma-ray 
spectra  should  have  and  will  then  discuss  some  of  the 
analysis  functions  which  could  be  implemented.  The  various 
functions  are  organized  in  major  groupings  to  gather  similar 
functions  together. 

General  Considerations.  A  primary  requirement  for  all 
software  currently  being  written  is  that  it  be  structured. 
Structure  in  this  case  implies  that  tasks  to  be  performed 
are  analyzed  before  the  program  is  written  and  broken  down 
into  small  units,  each  of  which  has  a  simple,  well-defined 
role  in  the  overall  system.  Structure  makes  concentration 
on  a  single  module  or  submodule  possible  without  the 
programmer  being  required  to  remember  what  all  of  the  other 
modules  are  doing.  A  well-defined  structure  also  allows 
more  than  one  person  to  work  on  a  program  and  allows  changes 
to  be  easily  made. 

Almost  as  important  as  structured  design,  is  the 
selection  of  a  high  level  language  in  which  to  program.  A 
high  level  language  (such  as  FORTRAN,  Pascal,  or  Ad:.)  allows 
the  programmer  to  think  on  a  higher  level  and  depend  on  the 
compiler  to  keep  track  of  details.  The  FORTRAN-66  language 
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(Ref  13)  is  not  suited  to  structured  programming  v/ithin  each 
routine.  The  FORTRAN-77  language  (Ref  14)  has  numerous 
additions,  most  notably  the  IF-THEN-ELSE  control  construct, 
which  allows  structured  programming,  and  the  CHARACTER  data 
type  which  allows  direct  machine-independent  manipulation  of 
character  strings.  The  FORTRAN  language  is  also  nearly  a 
standard  language  for  Nuclear  Engineering,  and  almost  all 
people  who  would  use  the  program  for  gamma-ray  spectroscopy 
would  understand  that  language.  While  a  high  level  language 
is  easy  to  understand  and  to  use  for  writing  programs,  it  is 
not  the  most  efficient  in  either  time  or  memory 
requirements.  With  a  disk  drive  and  65536  bytes  of  memory, 
memory  use  is  not  a  factor  but,  in  some  situations, 
execution  speed  will  be.  For  subroutines  which  are  used 
very  frequently  inside  the  innermost  loop  of  a  program, 
assembly  language  coding  will  yield  significant  improvement 
in  the  time  required  to  execute  the  program.  Another  likely 
use  of  assembly  language  is  to  program  the  input/output 
operations  with  the  multichannel  analyzer  interface.  These 
operations  would  occur  frequently  at  the  innermost  loop  for 
the  transfer  of  data  from  the  multichannel  analyzer  to  the 
microcomputer . 

Data  transfer  is  only  one  of  many  functions  to  be 
performed  on  this  system.  The  next  function  to  be  performed 
is  selected  in  a  fixed  order  in  the  demonstratic  system 
(and  program  GAMMA,  of  Ref  7).  The  fixed  segue.;.::  .1  order 
of  functions  is  suitable  when  only  a  few  fu;  cti.  n.->  are 
implemented.  However,  the  system  proposed  here  will  have 
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'"unctions  and  they  should  be  organized  in  a  command 
structure.  The  user  would  select  the  next  function  to  be 
performed  from  a  set  of  available  commands.  Certain 
sequences  could  be  prohibited  or  simply  not  available;  for 
example,  energy  calibration  cannot  precede  peak  location 
which  cannot  precede  peak  detection.  However,  peak  location 
could  be  performed  twice  (with  different  parameters)  after 
peak  detection. 

Programming  a  sequence  of  functions  should  also  be 
possible.  Experiments  often  require  large  amounts  of 
repetitive  processing  and  repeated  tasks  are  better  suited 
to  a  computer  than  a  human.  So,  the  user  should  be  able  to 
write  a  supervisory  program  which  will  execute  analyzer 
functions  in  sequence,  specify  parameters  and  even  make 
decisions  based  on  results.  The  user  should  also  be  able  to 
temporarily  replace  one  or  more  program  modules  to  tailor 
the  data  analysis  to  his  particular  experiment. 

In  general,  the  software  for  the  proposed  system  should 
be  highly  structured  in  a  high  level  language,  preferably 
FORTRAN-77,  with  some  input/output  or  inner  loop  subroutines 
coded  in  assembly  language.  The  various  functions  should  be 
commanded  in  the  sequence  desired  either  by  the  user  at  the 
communications  terminal  or  by  a  user  written  supervisory 
program.  The  user  should  also  be  able  to  modify  functions 
for  a  particular  purpose. 

Transfer  Functions.  Before  data  is  available  to 
analyze,  it  must  be  read  into  the  microcomputer  memory. 
Moving  data  to  and  from  the  microcomputer  memory  is  the 
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P u r pose  of  the  transfer  function.  One  source  of  the  data  is 

the  multichannel  analyzer,  which  is  the  original  source  of 
all  gamma-ray  spectra.  Another  source  is  the  disk  drive. 
Three  transfer  functions  should  be  available  on  command  to 
transfer  data: 

-  from  the  multichannel  analyzer  to  the  microcomputer 
memory, 

-  from  the  microcomputer  memory  to  the  disk  drive,  or 

-  from  the  disk  drive  to  the  microcomputer  memory. 

The  disk  transfer  operations  should  allow  the  specification 
of  a  name  for  a  particular  set  of  data.  The  data  transfered 
should  include  not  only  channel  counts  but  also  the  results 
of  any  analysis  already  performed.  The  multichannel 
analyzer  transfer  function  should  allow  any  contiguous  set 
of  channel  counts  to  be  transferred  (ignore  the  contents  of 
the  channels  before  the  desired  start  channel). 

Manipulation  Functions.  Once  the  data  is  in  memory, 
there  should  be  several  manipulation  functions  available. 
One  of  the  most  common  functions  desired  is  data  smoothing. 
Bevington  (Ref  10:255-260)  gives  the  arguments  and  cautions 
for  data  smoothing;  he  also  provides  an  algorithm  for 
smoothing  random  data  which  contains  gaussian  peaks. 

Another  useful  function  would  be  a  shift  and  stretch 
routine  to  move  the  entire  spectrum  to  the  left  or  right  by 
a  specified  number  of  channels  and  at  the  same  time  stretch 
or  shrink  it  from  the  current  number  of  channels  to  a 
specified  number  of  channels.  With  this  function,  it  would 
be  possible  to  compare  two  spectra  which  were  not  taken  at 
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the  seme  equipment  settings  (different  gain  or  offset) . 

Interpolation  would  be  necessary  when  stretching  ana 
averaging  when  shrinking. 

The  comparison  of  two  spectra  would  be  accomplished  by 
a  strip  function,  which  subtracts  a  specified  multiple  of 
one  spectrum  from  another  spectrum.  For  example,  a 
background  spectrum  can  be  subtracted  from  a  sample 
spectrum.  The  two  spectra  need  not  be  memory  resident.  The 
first  spectrum,  from  which  the  second  is  subtracted,  will  be 
in  memory,  and  the  results  will  be  in  memory;  but  the  second 
spectrum,  whose  ratio  is  subtracted,  could  be  a  disk  file. 

Peak  Processing  Functions.  After  data  manipulations 
are  complete,  information  about  the  peaks  will  be  required. 
The  peak  processing  functions  (detect,  locate,  integrate) 
will  probably  come  as  a  package.  However,  peak  location 
could  be  followed  by  an  edit  cycle  to  delete  those  peaks 
about  which  further  information  is  not  required,  and  to  add 
those  peaks  that  the  algorithm  missed.  Improvements  to  the 
demonstration  system  peak  processing  algorithms  are 
certainly  in  order  and  will  include  allowing  different  peak 
widths,  more  channels  in  peak  edge  detection,  and  more 
channels  in  the  background  average.  A  further  improvement 
would  be  the  addition  of  a  peak  fitting  algorithm  which 
would  do  a  better  job  of  peak  location  and  deconvolution  of 
overlapping  multiple  peaks  (Ref  15:  735-739) .  Another 
function  would  compute  the  ratio  of  peak  areas.  Either  the 
ratio  of  one  peak  to  others  in  the  same  spectrum  or  the 
ratios  of  corresponding  peaks  in  two  different  spectra.  A 
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ratio  determined  by  this  function  could  be  used  as  the  ratio 

for  the  strip  function. 

Calibration  Functions.  For  a  wide  range  of  gamma-ray 
experiments,  the  detection  system  is  calibrated  by  taking  a 
spectrum  of  a  sample  with  known  activities  of  known 
nuclides.  Then,  a  spectrum  of  one  or  more  unknown  samples 
is  taken  and  the  energy  and  activities  of  its  peaks  computed 
from  the  spectrum  and  the  calibration  coefficients.  For 
this  experiment,  both  energy  and  efficiency  calibration 
functions  must  be  available.  The  two  point  linear  energy 
calibration  used  in  the  demonstration  system  is  not  really 
adequate  and  should  be  replaced  by  a  multipoint  polynomial 
curve  fitting  routines  for  energy  and  efficiency.  An 
additional  calibration  function  which  could  be  added  is 
automatic  nuclide  identification.  A  library  of  nuclides 
could  be  kept  on  the  disk  where  each  nuclide  included  would 
have  a  list  of  the  energy  of  its  principal  gamma  rays.  The 
proper  data  structure  would  allow 

-  searching  the  library  for  a  particular  energy, 

-  compiling  a  list  of  possible  nuclides,  and 

-  finding  other  peaks  which  should  also  be  present. 

Display  Function.  During  all  of  the  other  functions,  a 

display  of  the  current  spectrum  should  be  available.  The 
user  should  have  control  of  the  display  to  show  a  particular 
section  of  the  specrum  on  log  or  linear  scale,  but  the 
system  should  have  automatic  features  as  well.  -stem 

should  adjust  vertical  gain  so  that  the  largest  feature  just 
reaches  the  top  of  the  display.  During  other  functions,  the 
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display  could  dynamically  indicate  the  progress  of  the 
algorithm.  For  example,  during  peak  processing;  highlight 
the  peak  being  processed,  show  the  left  and  right  limits 
used,  and  display  the  computed  background  being  subtracted. 
With  a  continuous  cursor  control,  light  pen,  or  even  cursor 
control  keys,  the  user  should  be  able  to  designate  a 
particular  peak  or  a  particular  portion  of  the  displayed 
spectrum.  A  well  designed  display  can  make  the  entire 
analysis  program  much  easier  to  use. 

Report  Function.  The  final  product  of  any  analysis  is 
a  written  report  and  the  user  should  not  be  forced  to  copy 
results  from  a  screen  into  a  notebook  and  later  to  compile  a 
table  of  results.  A  default  report  should  be  generated  on 
the  hard  copy  printer  by  means  of  a  simple  command.  The 
report  should  contain  all  information  derived  from  the 
spectrum.  For  each  peak  the  calibrated  energy,  intensity, 
and  error  limits  should  be  listed  as  a  minimum.  The  format 
of  the  report  should  be  alterable  by  the  user;  for  simple 
changes,  by  keyboard  command.  For  more  complex  changes,  the 
report  writing  program  can  be  changed. 

Acquire  Function.  The  final  function  discussed,  but 
usually  the  first  function  executed,  is  the  acquisition  of 
data  by  the  multichannel  analyzer.  This  function  could  be 
performed  by  manipulating  the  front  panel  controls  of  the 
analyzer  itself.  Alternatively,  the  Nuclear  Data  analyzer 
can  be  controlled  by  the  microcomputer  through  the 
(  interface.  This  option  is  particularly  attractive  when  a 

series  of  spectra  are  to  be  taken.  Then  a  supervisory 
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program  could  be  written  ;hich 

-  causes  the  analyzer  to  acquire  a  spectrum, 

transfers  the  spectrum  from  the  multichannel 

analyzer , 

-  analyzes  the  data, 

-  and  preserves  the  results,  both  on  hard  copy  and 

disk . 

If  the  interface  were  suitably  configured,  then  the 
acquisition  program  could  also  monitor  and  control  other 
experimental  parameters  (such  as  sample  movement  by 
pneumatic  rabbit). 

Summary.  Many  functions  are  possible  with  the 
equipment  proposed  in  the  previous  section.  All  of  them 
require  software  which  will  take  time  to  design,  write,  and 
implement.  The  ideas  in  this  section  are  merely  sketches  of 
possible  functions  which  would  be  useful  and  attainable. 
The  implementation  details  need  to  be  determined  after  a 
complete  study  of  the  features  required  and  desired  of  each 
function. 

Cost/Benefit  Comparison 

A  decision  to  buy  the  equipment  and  write  software  for 
the  proposed  system  should  be  based  not  only  on  what  the 
system  will  do  but  also  on  how  much  the  system  will  cost. 
As  an  alternative  approach  to  meeting  system  requirements, 
commercial  multichannel  analyzers  were  examined  r  eoe  if 
they  would  have  the  required  features  at  a  compare' -1  e  'st. 


v-'-  '•"-iced,  not  to  obtain  an  exact  cost  but  rather  an  upper 
bound  on  cost.  More  accurate  costing  wouj  depend  on  the 
exact  system  chosen.  The  items  chosen,  manufacturer's  part 
number,  and  catalog  price  are  presented  in  Table  VI. 

Commercial  Multichannel  Analyzers.  With  the  proposed 
system  price  available,  some  comparison  shopping  was  done. 
Salesmen  for  three  multichannel  analyzer  manufacturers  were 
contacted  by  telephone,  and  the  price  obtained  for  an 
analyzer  system  with  capabilities  roughly  equivalent  to  the 
proposed  system. 

Canberra  Industries,  Inc.  of  Meriden,  Connecticut 
manufactures  the  Model  80  multichannel  analyzer.  The  Model 
80  would  be  about  $13,000  and  does  perform  most  of  the 
proposed  system  functions  with  cassette  tape  data  storage. 
However,  to  provide  any  user  programming,  a  model  designated 
the  PDT-Jupiter  would  be  required.  This  model  contains  a 
Model  80  analyzer  and  a  LSI-11  microcomputer  with  a  disc 
based  operating  system.  Complete  with  applications  software 
the  system  would  cost  $27,000. 

Tracor  Northern  of  Middleton,  Wisconsin  manufactures 
the  Model  TN-1710  Modular  Multichannel  Analysis  System.  A 
Model  TN-1710  system  is  composed  of  several  interconnected 
modules.  Modules  were  selected  for  a  typical  system  to  fill 
the  requirements  stated  in  the  introduction,  and  the  system 
cost  with  those  modules  would  be  $23,215  including  system 
software. 

Nuclear  Data  Inc.  of  Schauraberg,  Illinois  manufactures 
the  Model  66  multichannel  analyzer  which  gathers  data  only. 


Table  VI 


Catalog  Prices  of  Proposed  System  Hardware 


Item 

Manufacturer 

Model 

Price 

Microcomputer 

Intel 

SBC-80/20-4 

$  925 

Disc  Controller 

Intel 

SBX-218 

540 

High  Speed  Math 

Intel 

SBX-331 

450 

Memory 

Intel 

SBC-064 

2310 

Card  Cage 

Intel 

SBC-604 

235 

Card  Cage  Extension 

Intel 

SBC-614 

235 

Power  Supply 

Intel 

SBC-640 

825 

Printer 

Centronics 

730 

775 

Terminal 

Intertec 

II 

7  84 

Dual  Disc  Drive 

Per sci 

277 

1575 

Total 

$8654 

(Ref 

16,17) 

To  perform 

analysis,  a  Model 

680 

computer  is 

added.  The 

computer  is 

LSI-11 

based  with 

two 

8  inch  floppy 

discs.  The 

system  cost 

would 

be  about 

$35, 

000.  From  the 

salesman' s 

description. 

this 

software  is 

more 

sophisticated 

than  either 

of  the  other  manufacturer's  analyzers  or  the  proposed 
system.  As  an  example,  up  to  10  overlapping  peaks  can  be 
resolved  and  unfolded.  The  hardware  is  also  sophisticated 
with  up  to  4  analog  to  digital  converters  gathering  data  at 
the  same  time  spectrum  analysis  and  display  are  operating. 

Comparison.  To  obtain  all  of  the  required  system 
features  in  a  commercial  system  would  cost  in  excess  of 
$23,000  as  compared  to  proposed  system  hardware  costs  of 
$9,000.  The  difference  is  in  the  software  and  in  the 
additional  capabilities  of  the  commercial  equipment.  Also, 
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the  data  gathering  function  of  the  multichannel  analyzer  ir, 

a  sunk  cost  for  the  proposed  system.  The  disadvantage  of 
the  proposed  system  is  that  it  will  take  time  to  develop  the 
software.  An  advantage  is  the  tutorial  benefits  to  be 
gained  by  the  programmers  who  write  that  software.  If  the 
system  were  designed  in  a  proper,  structured  manner,  many 
students  could  each  add  an  analyzer  function  to  the  system. 


( 
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IV.  Conclusions  and  Recommendations 

Discussion 

The  primary  purpose  of  this  research  was  to  determine 
whether  a  microcomputer  interfaced  with  the  Nuclear  Data 
multichannel  analyzer  could  perform  the  analysis  of 
gamma-ray  spectra  better  than  the  present  system. 
Feasibility  was  demonstrated  by  building  an  interface  and 
writing  software  to  exercise  the  interface  and  perform 
analysis  functions.  The  analysis  functions  demonstrated 
were:  peak  detection,  peak  location,  peak  area,  and  energy 
calibration.  Each  of  these  functions  was  limited  because 
the  microcomputer  available  for  this  study  could  only  store 
4096  bytes  of  program.  The  limitations  imposed  were 
primarily  assumptions  about  peak  width  and  the  use  of  a 
single  channel  local  minimum  to  define  peak  boundaries.  The 
software  written  did  perform  these  limited  functions  in  less 
than  five  minutes  for  one  peak  and  six  minutes  for  fifty 
peaks . 

A  secondary  purpose  was  to  determine  the  necessary  and 
desirable  characteristics  of  a  microcomputer  system  to  be 
interfaced  with  the  multichannel  analyzer.  Hardware 
characteristics  of  available  .components  were  evaluated 
against  proposed  system  requirements.  Major  decisions  such 
as  8  bit  versus  16  bit  processors  and  8  inch  floppy  discs 
versus  5  inch  floppy  discs  were  outlined  and  recommendations 
were  made.  Software  for  the  proposed  system  was  also 
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discussed.  Functions  of  the  analysis  system,  which  could  be 

implemented  in  software,  were  explained.  The  importance  of 
structured  design  and  selection  of  a  language  which  supports 
structured  programming  were  emphasized. 

The  following  sections  summarize  the  conclusions  of  the 
feasibility  demonstration,  and  the  recommendations  for  the 
proposed  system. 

Conclusions 

-  The  Nuclear  Data  Model  2200  multichannel  analyzer  has 
been  interfaced  to  a  microcomputer. 

Data  can  be  transferred  from  the  multichannel 
analyzer  to  the  microcomputer  in  less  than  1  minute  for  4096 
channels.  Nearly  all  of  the  time  is  consumed  converting  the 
data  to  binary  form. 

Data  transfer  followed  by  peak  detection  can  be 
accomplished  on  a  4096-channel,  50-peak  spectrum  in  less 
than  6  minutes  with  32-bit  integer  arithmetic. 

Program  storage  of  4096  bytes  is  not  sufficient  for 
any  data  processing,  beyond  rudimentary  peak  location,  peak 
integration,  and  energy  calibration. 

-  At  least  32768  bytes  of  random  access  memory  are 
required  to  analyze  4096  channel  spectra. 

-  A  suitable  microcomputer  with  peripheral r  can  be 
purchased  for  less  than  half  the  cost  of  the  least  expensive 
commercial  multichannel  analyzer  with  the  'rwuired 
capabilities . 
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Pr - 

Design  a  microcomputer  system  using  off-the-shelf 
assemblies . 

Use  a  microcomputer  based  on  the  Intel  8080 
microprocessor  to  take  advantage  of  software  written  for 
this  study. 

-  Obtain  65536  bytes  of  random  access  memory. 

-  Include  two  8  inch  floppy  disk  drives. 

-  Add  a  high  speed  math  unit. 

-  Use  an  existing  cathode  ray  tube  terminal  with 
graphics  capability;  a  light  pen  or  joystick  is  desireable. 

Design,  build,  test,  and  install  an  interface  between 
the  microcomputer  selected  and  the  multichannel  analyzer. 

Design,  write,  and  test  software  for  the  system. 

-  Use  structured,  modular  programming  techniques. 

-  Use  the  FORTRAN-77  high  level  language  wherever 

possible. 

-  Analyzer  functions  should  be  called  up  by  either 
a  command  from  the  terminal  or  a  supervisory  program  call. 

-  Devise  a  program  structure  which  makes  additions 
or  changes  of  modules  easy  and  direct. 
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Appendix  A 
Program  Listings 


On  the  following  pages  is  the  compilation  or  assembly 
listing  of  each  program  module  which  is  part  of  the 
demonstration  system.  In  addition,  the  Fortran  equivalent 
of  the  PKPROC  module  is  included.  The  listings  are  arranged 
in  alphabetical  order  by  module  name. 
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ASM  ;F1 :ASSEM.SRC  PAGELFMGTH(60)  PAGFWinTH(79) 
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PAGE 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

1 

SMACROFILE 

2 

$TI  HE  (’ASSEM  - 
') 

9 

ASSEMBLY  LANGUAGE  SUBROUTINES  1 

3 

4 

;  17  NOV  80 

5 

9 

6 

NAME 

ASSEM 

7 

8 

CSEG 

9 

9 

10 

•a**##########**##*######################**## 

» 

11 

9 

12 

PUBLIC 

OUTCHR 

13 

OUTCHR: 

;  OUTPUT  FORTRAN  CHARACTER 

14 

{STRING  TO  CONSOLE 

15 

;  FORTRAN  CALL: 

CALL  OUTCHR( ’STRING') 

16 

;  INPUTS: 

B,C  =  ADDRESS  OF  STRING 

17 

• 

9 

D,E  =  LENGTH  OF  STRING 

18 

;  CALLS: 

CO 

19 

EXTRN 

CO 

20 

;  DESTROYS: 

A,C,D,E,H,L 

21 

• 

0000  60 

22 

MOV 

H,B 

0001  69 

23 

MOV 

L,C  ;  H,L  =  STRING  ADDR 

24 

TS7DE: 

;  TEST  REMAINING  LENGTH 

0002  7A 

25 

MOV 

A,D 

0003  B3 

26 

ORA 

E  ;  D,E  =  0  ? 

27 

0004  C8 

28 

RZ 

;  YES,  DONE 

0005  4E 

29 

MOV 

C,M 

0006  CD 0000 

E 

30 

CALL 

00 

0009  23 

31 

INX 

H 

OOOA  IB 

32 

DCX 

D 

OOOB  C30200 

C 

33 

JM3 

TSTDE 

34 

• 

9 

35 

•a#*###*####*#######*#######*######* 

9 

36 

• 

9 

37 

PUBLIC 

JNINT 

38 

ININT: 

;  INPUT  POSITIVE  INTEC-EP.  FRO'1 

39 

;  FORTRAN  CALL: 

CALL  ININTC 1 , ID) 

40 

;  INPUTS: 

B,C  =  ADDRESS  OF  1 

41 

• 

9 

(D,E)  =  DEFAULT  VALUE 

42 

;  OUTPUTS: 

(B,C)  <—  16-BIT  VALUE  INPUT 

43 

;  CALLS: 

Cl  ,CO,M)L10,OUTSTR,CRLF 

44 

EXTRN 

Cl 

45 

;  DESTROYS: 

A,B,  C,D,E,H,L 

CONSOLE 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

46  ; 

000E  C5 

47 

PUSH 

B 

9 

SAVE  ADDRESS 

OOOF  1A 

48 

LDAX 

D 

* 

9 

MOVE  DEFAULT 

0010  02 

49 

STAX 

B 

9 

...  TO  1 

0011  13 

50 

INX 

D 

0012  03 

51 

INX 

B 

0013  1 A 

52 

LDAX 

D 

0014  02 

53 

STAX 

B 

0015  210000 

54 

LXI 

H,0 

0018  0600 

55 

MV! 

B,0 

56  GET1C: 

001 A  CD 0000 

E 

57 

CALL 

Cl 

9 

A  =  CHAR  FROM  CONSOLE 

001 D  E67F 

58 

ANI 

7FH 

9 

WITHOUT  PARITY  (IF  ANY) 

00 IF  FEOD 

59 

CPI 

CR 

0021  CA4600 

C 

60 

JZ 

DONE 

0024  4F 

61 

MOV 

C,A 

0025  CDOOOO 

E 

62 

CALL 

CO 

9 

ECHO  CHAR  TO  CONSOLE 

0028  79 

63 

MOV 

A,C 

0029  D630 

64 

SUI 

•O' 

• 

9 

BETWEEN  »0«-'9' 

002B  DA5200 

C 

65 

JC 

INVAL 

• 

9 

NO,  INVALID 

002E  FEOA 

66 

CPI 

10 

0030  D25200 

C 

67 

JNC 

INVAL 

0033  CD7300 

C 

68 

CALL 

MUL10 

• 

9 

H,L  =  H,L  *  10 

0036  DA5200 

C 

69 

JC 

TOOBIG 

9 

CARRY  =  OVERFLOW 

0039  85 

70 

ADD 

L 

003A  6F 

71 

MOV 

L»A 

003B  7C 

72 

MOV 

A,H 

9 

H,L  =  H,L  +  DIGIT 

003C  CEOO 

73 

ACI 

0 

003E  DA5200 

C 

74 

JC 

TOOBIG 

0041  67 

75 

MOV 

H,A 

0042  04 

76 

INR 

B 

9 

B  =  OOUNT  OF  CHARS 

0043  C31AOO 

C 

77 

JNP 

GET1C 

78  DONE: 

0046  CD7DOO 

C 

79 

CALL 

CRLF 

0049  EB 

80 

XCHG 

9 

D,E  =  RESULT 

004A  El 

81 

POP 

H 

004B  AF 

82 

XRA 

A 

004C  B8 

83 

OP 

B 

9 

#  CHARS  =  0  ? 

004D  C8 

84 

RZ 

• 

9 

YES,  DON'T  CHANGE  IT 

004E  73 

85 

MOV 

M,E 

004F  23 

86 

INX 

H 

0050  72 

87 

MOV 

M,D 

9 

CALLING  ARG  <—  RESULT 

0051  C9 

88 

RET 

89  j 

90  INVAL: 

;  CHAR  NOT  0-9  OR  CR 

91  700BIG: 

;  NUfBER 

>  2**16 

0052  CD7D00 

C 

92 

CALL 

CRLF 

0055  215F00 

C 

93 

LXI 

H, INVMSG 

0058  CD9100 

C 

94 

CALL 

OUTSTR 

9 

TELL  USER  'INVALID' 
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ISIS-I 

poon/po05 

MACRO  ASSEfPLR,  V2.0 

ASSEM  PAGE  3 

ASSEM 

ASCE'FLY 

_A“  'Gl'A( 

-p  Sl'^rOjTI  ■  IES  F 

^  c/:"v\ 

LOC 

OBJ 

SEQ 

SOURCE  STATEMENT 

005B 

Cl 

95 

POP 

B 

005C 

C30E00  C 

96 

JNP 

ININT 

TRY  AGAIN 

005F 

494E5641 

97 

INVMSG:  DB 

♦INVALID 

TRY  AGAIN>*,0 

0063 

4C49442C 

0067 

20545259 

006B 

20414741 

006F 

494E3E 

0072 

00 

98 

9 

99 

.***##*#**###*##*##*##*##******#*#**** 

100 

9 

101 

MUL10: 

;  MULTIPLY  BY  10 

102 

;  INPUTS: 

H,L  =  POSITIVE  INTEGER 

103 

;  OUTPUTS: 

H,L  =  H.L  *  10 

104 

;  DESTROYS: 

D,E 

105 

• 

9 

0073 

29 

106 

DAD 

H 

*  2 

0074 

D8 

107 

RC 

0075 

54 

108 

MOV 

D,H 

0076 

50 

109 

MOV 

E,L 

0077 

29 

110 

DAD 

H 

*  4 

0078 

08 

111 

RC 

0079 

29 

112 

DAD 

H 

*  8 

007 A 

08 

113 

RC 

007B 

19 

114 

DAD 

D 

*8  +  *2 

007C 

C9 

115 

RET 

116 

• 

9 

117 

.a#**#*#**#*#***##****#*############ 

118 

9 

119 

PUBLIC 

CRLF 

120 

CRLF: 

;  CONSOLE  <—  CR, IDLE,LF, IDLE 

121 

;  FORTRAN  CALL: 

CALL  CRLF 

122 

;  CALLS: 

CO 

123 

;  DESTROYS: 

A,C 

124 

;  CALLS: 

CO 

00  OD 

125 

CR  EQU 

13 

CARRIAGE  RETURN 

OOOA 

126 

LF  EQU 

10 

LINE  FEED 

0016 

127 

SYN  EQU 

22 

SYNCHRONOUS  IDLE 

128 

USED  BECAUSE  CDO  TERMINAL 

129 

EATS  CHAR  FOLLC.  iT.'G  CR  — 

130 

. 

SOICTIMES 

0070 

OEOD 

131 

MV  1 

C,CR 

007F 

COOOOO  E 

132 

CALL 

00 

0082 

0E16 

133 

MV  1 

C,SYN 

0084 

COOOOO  E 

134 

CALL 

00 

0087 

OEOA 

135 

MV  1 

C,LF 

0089 

COOOOO  E 

136 

CALL 

00 

008C 

0E16 

137 

MV  1 

C,SYN 

008E 

C30000  E 

138 

JNP 

00 

LET  CO  RETURN  TO  CALLER 
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ASSEM  -  ASSEMBLY  LAM3UAGE 

SLEPOUTINES  FOP  GAMMA 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

139 

140 

a##*##*##*##*#**#*****####*#*###*#***##*# 

141 

142 

PUBLIC 

OUTSTR 

143  OUTSTR: 

;  PRINT  A  CHAR  STRING 

144 

;  ASSEMBLY  LANGUAGE  CALLED 

145 

INPUTS: 

H,L  =  ADDRESS  OF  STRING 

146 

TERMINATED  BY  0  BYTE 

147 

CALLS: 

CO 

148 

DESTROYS: 

A,C,H,L 

149 

0091  AF 

150 

XRA 

A 

0092  BE 

151 

CMP 

M  ;  NEXT  CHAR  =  0  ? 

0093  C8 

152 

RZ 

;  YES,  DONE 

0094  4E 

153 

MOV 

C,M 

0095  CD 0000 

E 

154 

CALL 

00  ;  NO,  OUTPUT  IT 

0098  23 

155 

INX 

H 

0099  C39100 

C 

156 

JNP 

OUTSTR  ;  NEXT  CHAR 

157 

158 

a***#***-*******#***#***#**#**#*****#***# 

159 

160 

PUBLIC 

OUTINT 

161  C 

XJTINT: 

;  OUTPUT  POSITIVE  INTEGER  TO  OONSOLE 

162 

FORTRAN  CALL: 

CALL  OUTINTC 1 ,NC) 

163 

INPUTS: 

B,C  =  ADDRESS  OF  1 

164 

NUMBER  TO  OUTPUT 

165 

D,E  =  ADDRESS  OF  NC 

166 

MINIMUM  #  OF  CHARS 

167 

(PAD  WITH  LEADING  BLANKS) 

168 

CALLS: 

Dl VHD,PAD,OUTLP 

169 

DESTROYS: 

ALL 

170 

009C  1 A 

171 

LDAX 

D 

009D  60 

172 

MOV 

H,B 

009E  69 

173 

MOV 

L,C 

009F  5E 

174 

MOV 

E,M 

00  AO  23 

175 

INX 

H  ;  D,E  =  #  TO  OUTPUT 

00A1  56 

176 

MOV 

D,M 

00A2  0600 

177 

MV  1 

B,0  ;  B  ■  #  DIGITS 

00A4  4F 

178 

MOV 

C,A  ;  C  =  M!M  #  CHARS 

00A5  7A 

179 

MOV 

A,D 

00A6  B3 

180 

ORA 

E  ;  D,E  =  0  ? 

00A7  C2AF00 

C 

181 

JNZ 

DVLOOP  ;  NO 

00 AA  04 

182 

INR 

B  ;  YES,  PRINT  1  ZERO 

00 AB  D5 

183 

PUSH 

D 

OOAC  C3BF00 

C 

184 

JNP 

CKPAD  ;  HOW  MANY  FAD 

185  DVLOOP: 

;  DIVIDE  BY  10  AND  PLF-  '  :  "R 

OOAF  210A00 

186 

LXI 

H,10 

00B2  CD9901 

C 

187 

CALL 

DIVHD  ;  H,L  =  D,E  /  H,~ 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

OOB5  EB 

188 

XCHG 

;  D,E  =  QUOTIENT 

00B6  7D 

189 

MOV  A,L 

OOB7  F5 

190 

PUSH 

PSW  ;  SAVE  REMAINDER 

00B8  33 

191 

I  NX 

SP  ;  ONLY  A  REGISTER 

00B9  04 

192 

INR 

B  ;  COUNT  DIGIT 

OOBA  7A 

193 

MOV 

A,D 

OOBB  B3 

194 

ORA 

E  ;  D,E  =  0  ? 

00  BC  C2NF00 

C 

195 

JNZ 

DVLOOP  ;  NO,  GET  NEXT  DIGIT 

196 

CKPAD: 

;  CHECK  HOW  MANY  PAD  NEEDED 

OOBF  79 

197 

MOV 

A,C 

OOCO  90 

198 

SUB 

B  ;  A  =  #  SPACES 

00C1  CDDAOO 

C 

199 

CALL 

PAD 

00C4  CDC800 

C 

200 

CALL 

OUTLP 

00C7  C9 

201 

RET 

202 

• 

9 

203 

.jut***###***#**#**##***#*######*#*####*#**###* 

204 

• 

9 

205 

OUTLP: 

;  POP  AND  PRINT  DIGITS 

206 

;  INPUTS: 

B  =  #  OF  DIGITS  TO  PRINT 

207 

• 

9 

STACK  =  DIGITS  TO  PRINT 

208 

;  CALLS: 

00 

209 

;  DESTROYS: 

A,B,C,D,E 

210 

• 

9 

00C8  78 

211 

MOV 

A,B  ;  #  OF  DIGITS  TO  PRINT 

00C9  A7 

212 

ANA 

A  ;  ...  ANY  ? 

OOCA  C8 

213 

RZ 

;  NO 

OOCB  D1 

214 

POP 

D  ;  D,E  =  RETURN  ADDRESS 

215 

0UTLP1 : 

OOCC  3B 

216 

DCX 

SP  ;  SET  UP  SP 

OOCD  FI 

217 

POP 

PSW  ;  ...  POP  ONE  BYTE  INTO 

OOCE  0630 

218 

ADI 

*0' 

OODO  4F 

219 

MOV 

C,A 

00D1  CDOOOO 

E 

220 

CALL 

CO 

00D4  05 

221 

DCR 

B 

00D5  C2CC00 

C 

222 

JNZ 

0UTLP1 

00D8  D5 

223 

PUSH 

D 

00D9  C9 

224 

RET 

225 

• 

9 

226 

.  a########*############*#*###*###***##** 

» 

227 

9 

228 

PAD: 

;  PRINT  SPACE  FOR  EACH  CC"\T 

229 

;  INPUTS: 

A  =  #  OF  FiLANKS  TO  PAD  WITH 

230 

1 

0  <  A  <  128 

231 

;  CALLS: 

00 

232 

;  DESTROYS: 

A,C,D 

233 

• 

9 

OODA  C8 

234 

RZ 

OODB  F8 

235 

RM 

OOOC  0E20 

236 

MV  1 

C,»  • 
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IOC  OBJ 

SEQ 

SOURCE  STATEMENT 

OODE  57 

237 

MOV 

D,A 

238  PADLP: 

OOOF  CDOOOO 

E 

239 

CALL 

00 

OOE2  15 

240 

DCR 

D 

00E3  C2DF00 

C 

241 

JNZ 

PADLP 

00E6  C9 

242 

RET 

243  ; 

244  • ********************************************* 

245  ; 

246 

PUBLIC 

OUTFLT 

247  OUTFLT: 

;  OUTPUT  SIGNED  32-BIT  INTEGER 

248 

;  TO  CONSOLE 

249  ; 

FORTRAN  CALL: 

CALL  OUTFLT ( F , NS * 1 OO+NC ) 

250  ; 

INPUTS: 

(B,C)  = 

F  -  NUMBER  TO  OUTPUT 

251  ; 

(D,E>  = 

NC  -  MINIMUM  #  OF  CHARS 

252  ; 

(PAD  IV/TH  LEADING  BLANKS) 

253  ; 

NS  -  #  OF  DIGITS  AFTER  . 

254  ; 

DESTROYS: 

ALL 

255  ; 

CALLS 

• 

• 

FQFLD4 ,  FQFNEG,  FQFDV4 ,  PAD,  OUT!  P,  CO 

256  ; 

DIVHD 

257  ; 

258 

EXTRN 

FQFLD4, FQFNEG, FQFDV4 

259  ; 

00E7  EB 

260 

XCHG 

;  (H,L)  =  NS* 100  +  NC 

OOE8  5E 

261 

MOV 

E,M 

00E9  23 

262 

INX 

H 

00 EA  56 

263 

MOV 

D,M 

;  D,E  =  NS* 100  +  NC 

OOEB  216400 

264 

LXI 

H,  100 

OOEE  CD9901 

C 

265 

CALL 

DIVHD 

;  E  =  NC  L  *  NS 

00F1  7D 

266 

MOV 

A,L 

00F2  210000 

D 

267 

LXI 

H,NS 

;  (H,L)  =  NS 

00F5  77 

268 

MOV 

M,A 

;  NS  =  #  DIGITS  AFTER  . 

00F6  A7 

269 

ANA 

A 

;  NS  =  0  ? 

00F7  CAFBOO 

C 

270 

JZ 

$+4 

OOFA  ID 

271 

DCR 

E 

;  NO,  NONC-1 

OOFB  23 

272 

INX 

H 

;  (H,L)  =  NC 

OOFC  73 

273 

MOV 

M,E 

;  NC  =  #  CHARS  REQUESTED 

OOFD  50 

274 

MOV 

D,B 

OOFE  59 

275 

MOV 

E,C 

OOFF  010300 

D 

276 

LXI 

B,  AOC 

0102  CDOOOO 

E 

277 

CALL 

FQFLD4 

;  ACC  =  NUMBER  TO  OUTPUT 

0105  3A0600 

D 

278 

LDA 

ACC+3 

;  MSB  OF  AOC 

0108  320F00 

D 

279 

STA 

SIGN 

;  SAVE  FOR  LATER 

01  OB  A7 

280 

ANA 

A 

;  ACC  <  0  ? 

01 OC  F21301 

C 

281 

JP 

OFINIT 

;  NO 

01  OF  CDOOOO 

E 

282 

CALL 

FQFNEG 

0112  35 

283 

OCR 

M 

;  IS  ONE  CHAR 

284  OFINIT: 

0113  23 

285 

INX 

H 

{  (H,L)  =  ND 
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LOC  OBJ 

SEQ 

SOURCE 

STATEMENT 

0114  3600 

286 

MVI 

M,0 

f 

ND  =  §  DIGITS  ON  STACK 

287  OFLOOP: 

;  DIVIDE  BY  10  LOOP 

0116  CD8801 

C 

288 

CALL 

fcoupo 

J 

ACC  =  0  ? 

0119  CA2B01 

C 

289 

JZ 

OFCHK 

; 

YES 

011C  119501 

C 

290 

LXI 

D,TEN 

01  IF  CDOOOO 

E 

291 

CALL 

FQFDV4 

9 

AX  =  AX/10 

0122  3A0700 

D 

292 

LDA 

EXT 

9 

EXT  =  REMAINDER 

0125  F5 

293 

PUSH 

PSW 

9 

SAVE  REMAINDER  ON 

0126  33 

294 

INX 

SP 

9 

..  ONE  BYTE  OF  STACK 

0127  34 

295 

INR 

M 

• 

9 

BUT-P  DIGIT  XUNT 

0128  C31601 

C 

296 

JMP 

OFLOOP 

297  OFCHK: 

01 2B  3A0000 

D 

298 

LDA 

NS 

01 2E  96 

299 

SUB 

M 

• 

A  =  NS  -  ND 

012F  F25101 

C 

300 

JP 

OFZERO 

9 

NOT  ENOUGH  DIGITS 

0132  3A0100 

D 

301 

LDA 

NC 

0135  96 

302 

SUB 

M 

• 

9 

A  =  NC  -  ND 

0136  CDDAOO 

C 

303 

CALL 

PAD 

• 

9 

PAD  W/  NC-ND  BLANKS 

0139  CD7D01 

C 

304 

CALL 

OFSIGN 

01 3C  7E 

305 

MOV 

A,M 

013D  2B 

306 

OCX 

H 

01 3E  2B 

307 

OCX 

H 

• 

9 

(H,L)  =  NS 

01 3F  96 

308 

SUB 

M 

0140  47 

309 

MOV 

B,A 

• 

9 

B  =  ND  -  NS 

0141  CDC800 

C 

310 

CALL 

OUTLP 

• 

9 

PRINT  DiCITS  BEFORE  . 

0144  7E 

311 

MOV 

A,M 

0145  A7 

312 

ANA 

A 

• 

9 

DIGITS  AFTER  .  ? 

0146  C8 

313 

RZ 

• 

9 

NO 

0147  0E2E 

314 

MVI 

c,v 

0149  CDOOOO 

E 

315 

CALL 

00 

01 4C  46 

316 

MOV 

B,M 

01 4D  CDC800 

C 

317 

CALL 

OUTLP 

• 

9 

PRINT  DIGITS  AFTER  DOT 

0150  C9 

318 

RET 

319  OFZERO: 

;  FEWER  DIGITS  THAN  DECIMAL 

320 

;  PLACES 

»• 

SUPPLY  LEADING  ZEROES 

0151  47 

321 

MOV 

B,A 

9 

B  =  DEFICIT 

0152  2B 

322 

DCX 

H 

9 

(H,L)  =  NC 

0153  7E 

323 

MOV 

A,M 

0154  2B 

324 

DCX 

H 

9 

(H,L)  =  NS 

0155  96 

325 

SUB 

M 

0156  3D 

326 

DCR 

A 

• 

/ 

A  =  NONS-1 

0157  CDDAOO 

C 

327 

CALL 

PAD 

• 

9 

PAD  WITH  BLANKS 

01 5A  CD7D01 

c 

328 

CALL 

OFSIGN 

01 5D  0E30 

329 

14V 1 

C  *0' 

9 

ZERO  BEFORE  DOT 

01 5F  CDOOOO 

E 

330 

CALL 

00 

0162  7E 

331 

MOV 

A,M 

0163  A7 

332 

ANA 

A 

9 

DIGITS  AFTER  DOT  ? 

0164  C8 

333 

RZ 

• 

9 

NO 

0165  0E2E 

334 

MVI 

G  »  * 

68 


IS  IS- 1 1  8080/8085  MACRO  ASSETLER,  V2 
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LOC  OBJ 

SEQ 

SOURCE 

0167  CDOOOO 

E 

335 

CALL 

01 6A  23 

336 

INX 

01 6B  23 

337 

INX 

01 6C  ODO 

338 

MV  I 

339  OFOLP: 

01 6E  05 

340 

DCR 

01 6F  FA7801 

C 

341 

JM 

0172  CDOOOO 

E 

342 

CALL 

0175  C36E01 

C 

343 

JNP 

344  OFDONE 

: 

0178  46 

345 

MOV 

0179  CDC800 

C 

346 

CALL 

01 7C  C9 

347 

RET 

348  ; 

349  OFSIGN 

: 

01 7D  3A0F00 

D 

350 

LDA 

0180  A7 

351 

ANA 

0181  FO 

352 

RP 

0182  0E2D 

353 

MV  1 

0184  CDOOOO 

E 

354 

CALL 

0187  C9 

355 

RET 

356  ; 

357  FCOMPO 

• 

• 

0188  E5 

358 

PUSH 

0189  210300 

D 

359 

LXI 

01 8C  7E 

360 

MOV 

361 

REPT 

362 

INX 

363 

ORA 

364 

ENDM 

018D  23 

365+ 

INX 

01 8E  B6 

366+ 

ORA 

01 8F  23 

367+ 

INX 

0190  B6 

368+ 

ORA 

0191  23 

369+ 

INX 

0192  B6 

37  Of 

ORA 

0193  El 

371 

POP 

0194  C9 

372 

RET 

373  ; 

0195  OAOO 

374  TEN: 

DW 

0197  0000 

375 

DSEG 

376  ;  THE  ORDER  Of 

0001 

377  NS: 

DS 

0001 

378  NC: 

DS 

0001 

379  ND: 

DS 

380  ;  THE  ORDER  Of 

0004 

381  ACC: 

DS 

0008 

382  EXT: 

DS 

0  ASSEM  PAGE  8 

FOR  GAMMA 

STATE^NT 

00 
H 
H 

C/O' 


B 

;  MORE  ZEROES  NEEDED  ? 

OFDONE 

;  NO,  PRINT  DIGITS 

CO 

;  YES,  PRINT  »0' 

OFOLP 

B,M 

OUTLP 

;  PRINT 

IF  ARGUMENT  NEGATIVE 

SIGN 

A 

;  ORIGINAL  ACC  <  0  ? 

;  NO 

c,»-» 

CO 

;  YES 

;  COMPARE  ACC  WITH  ZERO 
H 

H,ACC 

A,M 

3 

H 

M 

H 

M 

H 

M 

H 

M 

H 

;  Z  STATUS  TELLS  TALE 

10,0 


THE  NEXT  3  ITEMS  IS  IMPORT/  TT 
1 
1 
1 

THE  NEXT  TWO  ITEMS  IS 

4 

8 
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ASSEM  -  ASSEMBLY  LANGUAGE  SUBROUTINES  FOR  GAMMA 

LOC  OBJ  SEQ  SOURCE  STATEMENT 

0001  383  SIGN:  DS  1 

384  CSEG 

385  ; 

386  ;  a#####*#*#**#**#***#*#**#*####****##*##**#** 

387  ; 


0199  C5 

388  DIVHD: 

389  ;  INPUTS: 

390  ; 

391  ;  OUTPUTS: 

392  ; 

393  ;  DESTROYS: 

394  ; 

395  PUSH 

01 9A  EB 

396 

XCHG 

01 9B  42 

397 

MOV 

01 9C  4B 

398 

MOV 

01 9D  110000 

399 

LXI 

01  AO  3E10 

400 

MV  1 

01A2  F5 

401  D1 : 

402  PUSH 

01  A3  29 

403 

DAD 

01 A4  7B 

404 

MOV 

01A5  17 

405 

RAL 

01 A6  5F 

406 

MOV 

01 A7  7A 

407 

MOV 

01A8  17 

408 

RAL 

01 A9  57 

409 

MOV 

01 AA  7B 

410 

MOV 

01 AB  91 

411 

SUB 

01  AC  5F 

412 

MOV 

01  AD  7A 

413 

MOV 

01 AE  98 

414  S8B 

01 AF  57 

415 

MOV 

01  BO  D2B701 

C 

416 

JNC 

01 B3  EB 

417 

XCHG 

01B4  09 

418 

DAD 

01 B5  EB 

419 

XCHG 

01B6  23 

420 

INX 

01B7  FI 

421  02: 

422  POP 

01 B8  3D 

423 

DCR 

01 B9  C2A201 

C 

424 

JNZ 

01 BC  Cl 

425 

POP 

01  BO  7D 

426 

MOV 

01  BE  2F 

427 

CMA 

01 BF  6F 

428 

MOV 

01  CO  7C 

429 

MOV 

01  Cl  2F 

430 

CMA 

01 C2  67 

431 

MOV 

;  DIVIDE  D,E  BY  H,L 
D,E  =  DIVIDEND 
H,L  =  DIVISOR 
D,E  =  REMAINDER 
H,L  =  QUOTIENT 
A 


B 


B,D 

C,E 

B,C  =  DIVISOR 

DfO 

D,E,H,L  =  D 1 V 1 DEND : QUOT 1 ENT 

A,  16 

A  =  LOOP  COUNT 

PSW 

H 

LEFT  SHIFT 

A»E 

...  D,E,H,L 
...  ONE  BIT 

E,A 

A,D 

D,A 

A,E 

D,E  -  B,C 

C 

E,A 

A,D 

B 

D,A 

ABLE  TO  SUBTRACT  ? 

D2 

YES 

NO,  ADD  IT  BACK 

B 

H 

KEEP  INVERTED  QUOTIENT 

PSW 

A 

LOOP  COUNT  -1 

D1 

B 

DO  ANOTHER  B 1 i 

A,L 

COf-PLPENT 

j 

...  CUOTIFUT 

L,A 

A,H 

...  IN  H,L 

H,A 

70 


ISIS- I I  8080/8085  MACRO  ASSBFLPR,  V7.0  ASSEM  PAGE  10 


ASSE"  -  ASSF1BLY 

LANGUAGE 

suer.c 

'IITINES  GA'"1 A 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

01 C3  C9 

432 

RET 

433 

• 

t 

434 

END 

PUBLIC  SYMBOLS 

CRLP  C  0070 

ININT 

C 

OOOE 

OUTCHR  C 

0000 

OUTFLT  C  00E7 

0071  NT  C  009C 

0UTS7R 

c 

0091 

EXTERNAL  SYMBOLS 

Cl  E  0000 

00 

E 

0000 

FQFDV4  E 

0000 

FQFLD4  E  0000 

FQFNEG  E  0000 

USER  SYMBOLS 

ACC  D  0003 

Cl 

E 

0000 

CKPAD  C 

OOBF 

00  E  0000 

CR  A  0000 

CRLF 

C 

007D 

D1  C 

01 A2 

D2  C  01 B7 

DIVHD  C  0199 

DONE 

C 

0046 

DVLOOP  C 

OOAF 

EXT  D  0007 

FCONPO  C  0188 

FQFDV4 

E 

0000 

FQFLD4  E 

0000 

FQFNEG  E  0000 

GET1C  C  001 A 

ININT 

C 

OOOE 

INVAL  C 

0052 

INVMSG  C  005 F 

LF  A  OOOA 

MUL10 

C 

0073 

NC  D 

0001 

ND  D  0002 

NS  D  0000 

OFOLP 

C 

01 6E 

OFCHK  C 

01 2B 

OFDONE  C  0178 

OFINIT  C  0113 

OFLOOP 

C 

0116 

OFSIGN  C 

01 7D 

OFZERO  C  0151 

OUTCHR  C  0000 

OUTFLT 

C 

00E7 

OUTINT  C 

009C 

OUTLP  C  00C8 

om.Pi  c  oocc 

OUTSTR 

C 

0091 

PAD  C 

OODA 

PADLP  C  OODF 

SIGN  D  OOOF 

SYN 

A 

0016 

TEN  C 

0195 

TOOBIG  C  0052 

TSTDE  C  0002 

ASSEfCLY  COMPLETE,  NO  ERRORS 

FORTRAN  COMPILER  ENCAL  -  ENERGY  CALIBRATION 
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ISIS-II  FORTRAN-80  VI  .0  COf'PILATION  OF  PROGRAM  UNIT  ENCAL 
OBJECT  MODULE  PLACED  IN  ENCAL. OBJ 

OOf-PILER  INVOKED  BY:  :F1:F0RT80  ENCAL. FOR  PAGELENGTH(54) 


1  $PAGEWIDTH(73)  DATE (20  NOV  80) 

2  STITLEf ‘ENCAL  -  ENERGY  CALIBRATION*) 

3  SUBROUTINE  ENCAL 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 


ASK  USER  FOR  PEAK  NUMBER  AND  ENERGY  OF  TWO  PEAKS 
OOfPUTE  KEV/CHANNEL  BASED  ON  DIFERENCE 
CWPCTE  OFFSET  BASED  ON  FIRST  PEAK 
PRINT  ENERGY  FOR  ALL  PEAKS 

SCALING: 

REAL  VARIABLES  ARE  STORED  AS  32-BIT  INTEGERS  AND  ARE 
SCALED  BY  POWERS  OF  TEN  TO  ALLOW  FOR  NON- INTEGER  VALUES 


C  VARIABLE 

r* 

SCALING 

USE 

o  - 

c 

CHANL 

10 

CHANNEL  NUMBER 

C 

PKERGY 

10 

ENERGY  IN  KEV 

c 

COEFF ( 1 ) 

10 

OFFSET  IN  KEV 

c 

n 

COEFF (2) 

10**4 

KEV/CHANNEL 

4 

COM40N 

NCHANL , NPEAKS , COEFF ( 8 ) 

5 

OOMCN 

CHANL  (50) 

,TOTAL(50),AFEA(50),PI- 

6 

OOMTON 

T 1  ME , COUNTS ( 4095 ) 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


IF(NPEAKS.LT.3)  RETURN 
CALL  CRLF 

CALL  OLTTCHR( 'ENERGY  CALIBRATION*) 

CALL  CRLF 

10  CALL  OUTCHRC 'FIRST  PEAK?  ') 

CALL  ININT(NPKI) 

IF(NPK1 .LT.1 .0R.NPK1 .GT.NPEAKS)  GO  TO  10 
CALL  OUTCHR( 'ENERGY?  ') 

CALL  ININT(IENRGY) 

PKERGY(NPK1 )=IENRGY*10 
20  CALL  OUTCHR( 'SECOND  PEAK?  ') 

CALL  IN!NT(NPK2) 

IF(NPK2. LT.1. OR. MPK2. GT.NPEAKS. OR. NPK1 .EQ.NPK2)  0  TO  20 
CALL  OUTCHR( 'ENERGY?  ') 

CALL  I N I  NT < IENRGY) 

PKERGY ( NPK2 ) = I ENRGY* 1 0 
C  CONFUTE  KEV/CHANNEL  AND  OFFSET 
SCALE= 10000 

COEFF ( 2 ) =SCAL  E* ( PKERGY ( NPK2 ) -PKERGY ( NPK 1 ) ) 

COEFF ( 2 ) =COEFF ( 2 ) / ( CHANL ( NPK2 ) -CHANL ( NPK 1 ) ) 


26  COEFF ( 1 ) =FKERGY ( NPK 1 ) -CHANL ( NPK 1 ) *COEFF ( 2 ) / SCAL  E 
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27 

CALL  OUTCHRC 'ENERGY  =  *) 

28 

CALL  OUTFLTCCOEFF ( 1 ) , 1 00) 

29 

CALL  OUTCHRC*  +  *) 

30 

CALL  OUTFLT  C  COEFF (2) ,600) 

31 

CALL  OUTCHRC*  *  CHANNEL*) 

32 

C  PRINT 

CALL  CRLF 

ENERGY  OF  EACH  PEAK 

33 

CALL  CRLF 

34 

CALL  OUTCHRC 'PEAK  CHANNEL  ENERGY*) 

35 

CALL  CRLF 

36 

DO  100  1=1 ,NPEAKS 

37 

CALL  OUTINTC I ,3) 

38 

CALL  OUTFLTCCHANLC 1 ),108) 

39 

PKERGYC 1 )=C0EFF(1 )+00EFF(2)*CHANL ( i 

40 

CALL  OUTFLT (PKERGYC 1), 108) 

41 

CALL  CRLF 

42 

100 

CONTINUE 

43 

CALL  CRLF 

44 

RETURN 

45 

END 

MODULE  INFORMATION: 

OOOE  AREA  SIZE  =  02A2H  674D 

VARIABLE  AREA  SIZE  =  0022H  34D 

MAXIMUM  STACK  SIZE  =  0004H  40 

65  LINES  READ 

0  PROGRAM  ERROR(S)  IN  PROGRAM  UNIT  ENCAL 

0  TOTAL  PROGRAM  ERROR(S) 

END  OF  FORTRAN  COMPILATION 
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IS  IS- 1 1  8080/8085  MACRO  ASSENBLER,  V2.0  GAMMA  PAGE  1 

GAMMA  -  MAIN  ROUTINE  OF  MICROOOTWTER  GAMMA  ANALYSIS  PROGRAM 

LOC  OBJ  SEQ  SOURCE  STATEMENT 

1  SMACROF I LE 

2  $TITLE( 'GAMMA  -  MAIN  ROUTINE  OF  MICROCOMPUTER  GAMMA  ANA 
LYSIS  PROGRAM') 

3  ; 

4  ;  13  JAN  81 

5  ; 


6  ;  CALL 

7  ; 

ROUTINES 

IN  SEQUENCE 

8 

NAME 

GAMMA 

9 

PUBLIC 

GAMMA 

10  ; 

1 1  .**#*###***##**#*###**#*###*#*#*#**#*###***#** 

12  ; 

13 

CSEG 

14  GAM4A: 

15 

EXTRN 

GETDAT, PKSRCH, ENCAL 

0000  CD 0000 

E 

16 

CALL 

GETDAT 

0003  CD 0000 

E 

17 

CALL 

PKSRCH 

0006  CD 0000 

E 

18 

CALL 

ENCAL 

0009  C30000 

C 

19 

JMP 

GAMMA 

20  ; 

21 

END 

PUBLIC  SYMBOLS 
GAMMA  C  0000 

EXTERNAL  SYMBOLS 

ENCAL  E  0000  GETDAT  E  0000  PKSRCH  E  0000 

USER  SYMBOLS 

ENCAL  E  0000  GAMMA  C  0000  GETDAT  E  0000  PKSRCH  E  0000 


ASSEMBLY  COf-PLETE,  NO  ERRORS 


ASM  :F1:GETDAT.SRC  PAGELENGTVKeO)  PAGEV/IDTHC79) 


ISIS-II 

GETDAT 

LOC 


00D6 

00E5 

OOE6 

00E7 

00E8 

00E9 

OOEA 


OOOO 

0002 

0003 

0004 

0000 

0001 

0000 

0001 


8080/8085  MACRO  ASSEMBLER,  V2.0  GETDAT  PAGE  1 

-  GET  DATA  FROM  MULTI-CHANNEL  ANALYZER 


OBJ  SEQ  SOURCE  STATEMENT 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


SMACROFILE 

$T I TLE(» GETDAT  -  GET  DATA  FROM  MULTI-CHANNEL  ANALYZER') 
;  13  JAN  81 

;  1.  ASK  USER  "HOW  MANY  CHANNELS?" 

;  2.  INPUT  CHANNELS  FROM  MCA 

;  3.  OONVERT  FROM  BCD  TO  STORAGE  FORM  (FLOATING  POINT) 

NAME  GETDAT 
PUBLIC  GETDAT 
EXTRN  OLTTSTR,  INI  NT 
CSEG 


I/O  EQUATES 


LED 

EQU 

006H 

LED  ON  SBC  BOARD 

DISPL 

EQU 

0E5H 

HEX  DIGIT  ON  INTERFACE 

OUTBYT 

EQU 

0E6H 

OUTPUT  ALL  5  BITS  +  3  ! 

OUTBIT 

EQU 

0E7H 

OUTPUT  ONE  BIT 

INO 

EQU 

0E8H 

10,1  DIGITS 

INI 

EQU 

0E9H 

1000,100  DIGITS 

IN2 

EQU 

OEAH 

100K,10K  DIGITS 

;  OUTPUT  BITS 


MUXSEL 

EQU 

0 

;  SaECT  ADDRESS/DATA 

READY2 

EQU 

2 

;  REQUEST  NEXT  CHANNEL 

EXTA 

EQU 

3 

;  ACQUIRE  MODE 

EXTR 

EQU 

4 

;  READOUT  MODE 

ADDRES 

EQU 

0 

DATA 

EQU 

1 

HI 

EQU 

0 

;  BIT  INVERTED  BY  DRIVER 

LO 

EQU 

1 

BIT 

MACRO 

BITNO, STATE 

MVI 

A, BITNO 

SHL  1  OR  STATE 

OUT 

OUTBIT 

ENDM 

t 

GETDAT: 

;  ASK  USER  "HOW  MANY  CHANNELS?" 
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GETDAT  PAGE 


2 


i 


r~ 

8 

8 

c_ 

SEQ 

SOURCE 

STATEMENT 

OOOO  21B600 

C 

47 

LXI 

H.HOWNMY 

0003  COOOOO 

E 

48 

CALL 

OUTSTR  ;  ASK  QUESTION 

0006  11B400 

C 

49 

LXI 

D,ZERO  ;  DEFAULT,  N=0 

0009  010000 

D 

50 

LXI 

B,N 

OOOC  COOOOO 

E 

51 

CALL 

ININT  ;  CALL  ININT(N,0) 

OOOF  2A0000 

D 

52 

LHLD 

N 

0012  7C 

53 

MOV 

A,H 

0013  B5 

54 

ORA 

L  ;  N  =  0  ? 

0014  C8 

55 

RZ 

;  YES,  RETURN 

0015  2A0000 

D 

56 

LHLD 

N 

0018  220090 

57 

SHLD 

NCHANL  ;  NO,  NCHANL  =  N 

58  ; 

59  j 

INITIALIZE  1 

FOR  INPUT  FROM  MCA 

60 

BIT 

EXTR,LO  ;  READOUT  MODE 

001 B  3E09 

61  + 

MVI 

A.EXTR  SHL  1  OR  LO 

0010  D3E7 

62+ 

OUT 

OUTBIT 

001 E  210C94 

63 

LXI 

H,TIME  ;  ADDRESS  OF  FIRST  CHAN 

0022  220200 

D 

64 

SHLD 

ADDR 

65  ; 

66  ; 

LOOP  THROUGH  CHANNELS 

67  CHLOOP: 

0025  CD5500 

C 

68 

CALL 

CMDWAT 

0028  CD6500 

C 

69 

CALL 

CHIN 

70 

BIT 

READY2,HI  ;  START  NEXT  ACCESS 

002B  3E04 

71  + 

MVI 

A,READY2  SHL  1  OR  HI 

0020  D3E7 

72+ 

OUT 

OUTBIT 

002F  CD8B00 

C 

73 

CALL 

STORE 

0032  2AOOOO 

D 

74 

LHLD 

N 

0035  2B 

75 

DCX 

H 

0036  220000 

D 

76 

SHLD 

N 

0039  7C 

77 

MOV 

A,H 

003A  B5 

78 

ORA 

L  ;  N  =  0  ? 

003B  CA4900 

C 

79 

JZ 

DONE 

003E  C32500 

C 

80 

JNP 

CHLOOP 

81 

REPT 

8  ;  PATCH  SPACE  *DEBUG* 

82 

NOP 

83 

ENDM 

0041  00 

84+ 

NOP 

0042  00 

85+ 

NOP 

0043  00 

86+ 

NOP 

0044  00 

87+ 

NOP 

* 

0045  00 

88+ 

NOP 

0046  00 

89+ 

NOP 

0047  00 

90+ 

NOP 

0048  00 

91  + 

NOP 

92  ; 

93  DONE: 

;  RETURN  MCA  TO  USER 

94 

BIT 

EXTR,HI  ;  TURN  OFF  READ-OUT 

0049  3E08 

95+ 

MVI 

A,EXTR  SHL  1  OR  HI 
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LOC  OBJ 

SEQ 

SOURCE 

STATELENT 

004B  D3E7 

96+ 

OUT 

OUTBIT 

97 

BIT 

READY2.L0  ;  SIGNAL  DONE  CHANNEL 

004D  3E05 

98+ 

MV  1 

A, READY 2  SHL  1  OR  LO 

004F  D3E7 

99+ 

OUT 

OUTBIT 

0051  AF 

100 

XRA 

A 

0052  D3E6 

101 

OUT 

OUTBYT  ;  ALL  LINES  HIGH 

0054  C9 

102 

RET 

103  ; 

104  (M5WAT: 

;  WAIT  FOR  COWIAND  LINE  TO  GO  LOW 

105 

BIT 

READY2,L0  ;  DROP  READY2 

0055  3E05 

106+ 

MV  1 

A.READY2  SHL  1  OR  LO 

0057  D3E7 

107+ 

OUT 

OUTBIT 

108 

BIT 

MUXSEL, ADORES 

0059  3E00 

1 09+ 

MV  1 

A, MUXSEL  SHL  1  OR  ADORES 

005B  D3E7 

110+ 

OUT 

OUTBIT 

005D  DBEA 

111  WTLOOP: 

IN 

IN2 

005F  E602 

112 

ANI 

10B  ;  COMMAND  ? 

0061  CA5DOO 

C 

113 

JZ 

WTLOOP  ;  HIGH,  WAIT  FOR  LOW 

0064  C9 

114 

RET 

115  ; 

116  CHIN: 

;  INPUT  CHANNEL  TO  DATA 

117 

BIT 

MUXSEL, DATA 

0065  3E01 

118+ 

MV  1 

A, MUXSEL  SHL  1  OR  DATA 

0067  D3E7 

119+ 

OUT 

OUTBIT 

0069  210400 

D 

120 

LXI 

H,OOUNT  ;  ADDRESS  OF  HOLD  AREA 

006C  DBE8 

121 

IN 

INO 

006E  CD7C00 

C 

122 

CALL 

BCD  ;  CONVERT  2  BCD  DIGITS 

0071  DBE9 

123 

IN 

INI 

0073  CD7C00 

C 

124 

CALL 

BCD 

0076  DBEA 

125 

IN 

IN2 

0078  CD7C00 

C 

126 

CALL 

BCD 

007B  C9 

127 

RET 

128  ; 

129  j1 

It########*#*########*######*#**###########*### 

130  ; 

131  BCD: 

;  SEPARATE  2  DIGITS  INTO  2  BYTES 

132  i 

INPUTS: 

A  =  2  BCD  DIGITS 

133  ; 

H,L  =  ADDRESS  TO  STORE  2  BYTES 

134  ; 

OUTPUTS: 

H,L  =  H,L  +  2 

135  ; 

DESTROYS: 

A 

136  ; 

007C  2F 

137 

CMA 

;  DATA  WAS  INVERTED 

007D  F5 

138 

PUSH 

PSW 

007E  CD8600 

C 

139 

CALL 

CHXD  ;  LEAST  SIGNIF  DU!  T 

0081  FI 

140 

POP 

PSW 

141 

REPT 

4 

142 

RRC 

143 

ENDM 

;  MOST  SIGNIF  DU-IT 

0082  OF 

144+ 

RRC 
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IS  IS- 1 1  8000/8085  MACRO  ASSEf-ELER,  V2.0  GETDAT  FACE  4 

GETLmT  -  GET  DATA  FRCM  MJLTI-C-IA.NEL  A'./LYZER 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

0083  OF 

145+ 

RRC 

0084  OF 

146+ 

RRC 

0085  OF 

147+ 

RRC 

0086  E60F 

148  CHXD:  AN! 

OFH 

0088  77 

149 

MOV 

M,A 

0089  23 

150 

INX 

H 

008A  C9 

151 

RET 

152  ; 

1 53  ;#*#*#***+»##***##*###****#**##**#**###**#**# 

154  ; 

155  STORE: 

;  STORE  COUNT  IN  4  BYTES  RAM 

156  ; 

INPUTS: 

OOUNT  =  6  DIGITS 

157  ; 

ADDR  =  ADDRESS  TO  STORE  RESULT 

158  ; 

OUTPUTS: 

ADDR  =  ADDR  +  4 

159  ; 

(ADDR)  =  CHANNEL  DATA 

160 

161  ; 

CALLS: 

FQFCLR, FQFAD4 ,  FMUL 1 0 

162  ; 

163  ; 

NOTE:  THE  FQF...  ROUTINES  OPERATE  ON  A 

164  ; 

12-BYTE  LOGICAL  REGISTER. 

165  ; 

BYTES  0-3  ARE  ACCUMULATOR (ACC) 

166  ; 

4-7 

EXTENSION (EXT) 

167  ; 

8-11 

AUXILARY (AUX) 

168  ; 

THIS  LOGICAL  REGISTER  IS  SET  WITH  THE  ACC  ON 

169  ; 

THE  CURRENT  CHANNEL  COUNT. 

170  ; 

EXT  &  AUX  ARE  ON  FUTURE  CHANNELS. 

171  ; 

172  ; 

DESTROYS: 

ALL 

173 

EXTRN 

FQFCLR, FQF AD4, FMUL 10 

008B  2A0200 

D 

174 

LHLD 

ADDR 

008E  44 

175 

MOV 

B,H  ;  (B,C)  =  ACC  =  COUNTS( 

008F  40 

176 

MOV 

C,L 

177 

REPT 

4 

178 

INX 

H 

179 

ENDM 

0090  23 

180+ 

INX 

H 

0091  23 

181  + 

INX 

H 

0092  23 

182+ 

INX 

H 

0093  23 

183+ 

INX 

H 

0094  220200 

D 

184 

SHLD 

ADDR  ;  ADDR  =  ADDR  +  4 

0097  CDOOOO 

E 

185 

CALL 

FQFCLR  ;  ZERO  12  BYTES  Ar  P.C 

009A  3E06 

186 

MVI 

A, 6  :  A  =  LOOP  COUNT 

009C  210800 

187 

LXI 

H,8 

009F  09 

188 

DAD 

B 

OOAO  EB 

189 

XCHG 

;  (D,E)  =  AUX  PEG 

00A1  210900 

D 

190 

LXI 

H,00UNT+5  ;  (H,L)  =  USD 

191  STORLP: 

;  CONVERT  6  DIGITS  TO  BINARY 

00A4  F5 

192 

PUSH 

PSW 

00A5  7E 

193 

MOV 

A,M  ;  MOVE  DIGIT  FROM  COUNT 

78 
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ISIS-I!  8080/8085  MACRO  ASSPT3LER,  V2.0  GE7DAT  PAGE  5 

GETDAT  -  GET  DATA  FROM  MULTI -CHANNEL  ANALYZER 


LOC  OBJ 

SEp 

SOURCE  STATEMENT 

OOA6  12 

194 

STAX 

D  ;  ...  TO  AUX  REG 

00A7  CDOOOO 

E 

195 

CALL 

FQFAD4  ;  ACC  =  ACC  +  AUX 

OOAA  FI 

196 

POP 

PSW 

00 AB  3D 

197 

DCR 

A  ;  MORE  DIGITS  ? 

me  C8 

198 

RZ 

;  NO 

00 AD  CDOOOO 

E 

199 

CALL 

FMUL10  ;  AOC  =  ACC  *  10 

OOBO  2B 

200 

DCX 

H  ;  (H,L)  =  NEXT  DIGIT 

OOB1  C3A400 

C 

201 

JM3 

STORLP  ;  DO  NEXT  DIGIT 

202  ; 

203  • tf********************************************* 

204  ; 

00B4  0000 

205  ZERO: 

DW 

0 

OOB6  47455420 

206  HOWMMY : 

DB 

•GET  HOW  MANY  CHANNELS?  ',0 

OOBA  484 F 57 20 
OOBE  4D414E59 
00C2  20434841 
00C6  4E4E454C 
OOCA  533F20 
OOCD  00 


207 

DSEG 

0002 

208  N: 

DS 

2 

i  #  CHANNELS  TO  GET 

0002 

209  ADDR: 

DS 

2 

;  ADDR  OF  NEXT  CHANNEL 

0006 

210  OOUNT: 

211  ; 

DS 

6 

;  TEMP  HOLD  BCD  DIGITS 

212 

ASEG 

9000 

213 

ORG 

9000H 

;  LOCATE  //  TO  THIS  ADOR 

0002 

214  NCHANL: 

DS 

2 

0002 

215  NPEAKS: 

DS 

2 

0020 

216  OOEFF: 

DS 

8*4 

00C8 

217  CHANL : 

DS 

50*4 

00C8 

218  TOTAL: 

DS 

50*4 

OOC8 

219  AREA: 

DS 

50*4 

00C8 

220  PKERGY: 

DS 

50*4 

00C8 

221  PGPS: 

DS 

50*4 

0004 

222  TIME: 

DS 

4 

3FFC 

223  OOUNTS: 

DS 

4095*4 

0008 

224 

DS 

12-4 

;  ROOM  TO  CLEAR  4096TH 

225 

226  ; 

227 

END 

j  CHANNEL 

PUBLIC  SYMBOLS 
GETDAT  C  0000 

EXTERNAL  SYT-1B0LS 

FMUL10  E  0000  FQFAD4  E  0000  FQFCLR  E  0000  ININT  E  OOC 
OUTSTR  E  0000 

USER  SYMBOLS 


79 
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ISIS-II  8030/8C85  MACRO  ASSErrLED,  V2.C  GETDAT  PAGE  6 

GETDAT  -  GET  DATA  FROM  lULTI-CHTTEL  ,'!.MYZER 


ADDR  D  0002 
BIT  +  0000 
CHXD  C  0086 
COUNTS  A  9410 
EXTA  A  0003 
FQFCLR  E  0000 
I  NO  A  00E8 
LED  A  00D6 
NCHANL  A  9000 
OUTSTR  E  0000 
STORE  C  008B 
WTLOOP  C  005D 


ADDLES  A  0000 
CHANL  A  9024 
CMDWAT  C  0055 
DATA  A  0001 
EXTR  A  0004 
GETDAT  C  0000 
INI  A  00E9 
LO  A  0001 
NPEAKS  A  9002 
PGPS  A  9344 
STORLP  C  00A4 
ZERO  C  00B4 


AREA  A  91B4 
CHIN  C  0065 
COEFF  A  9004 
DISPL  A  00E5 
FMUL10  E  0000 
HI  A  0000 
IN2  A  00  EA 
MUXSEL  A  0000 
OUTBIT  A  00E7 
PKERGY  A  927C 
TIME  A  940C 


BCD  C  0070 
CHLOOP  C  0025 
OOUNT  D  0004 
DONE  C  0049 
F9FAD4  E  0000 
HOWMNY  C  00B6 
ININT  E  0000 
N  D  0000 
OUTBYT  A  00E6 
READY2  A  0002 
TOTAL  A  90EC 


ASSEM3LY  OOAPLETE,  NO  ERRORS 
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I  SIS- 1 1  8080/8085  MACRO  ASSEMBLER,  V2.0  INT4  PAGE  1 

INT4  -  MULT I -BYTE  INTEGER  ARITHMETIC  ROUTINES 


LX  OBJ  SEQ  SOURCE  STATENENT 


0004 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


SMACROFILE  PAGEWID7VK79) 

$TITLE('INT4  -  MULTI -BYTE  INTEGER  ARITHMETIC  ROUTINES') 
;  13  JAN  81 

NAME  INT4 
;  PARAMETER: 

;  P  IS  THE  NUMBER  OF  8-BIT  BYTES  USED 
;  IN  ALL  OPERATIONS. 

P  EX  4  ;  4-BYTE  OPERANDS 

;  ARGUMENTS: 

•  REGISTERS  B,C  OONTAIN  THE  ADDRESS  OF 
;  A  RAM  AREA  AT  LEAST  3*P  BYTES  LONG  WHICH 
;  IS  LXICALLY  DIVIDED  INTO  THREE  "REGISTERS” 

;  1.  THE  ACCUMULATOR  (AX)  CONTAINS  FIRST 
;  OPERAND  ON  ENTRY  AND  THE  RESULT  ON  EXIT. 

;  2.  THE  EXTENSION  (EXT)  IS  USED  AS  AN  EXTENSION 
;  OF  THE  AX  TO  OONTAIN  TEMPORARY  RESULTS. 

;  3.  THE  AUXILIARY  (AUX)  IS  USED  TO  STORE 
;  THE  SECOND  OPERAND  IF  THAT  OPERAND 
;  NEEDS  TO  BE  MODIFIED. 

;  REGISTERS  D,E  CONTAIN  THE  ADDRESS  OF 
;  THE  SECOND  OPERAND  WHICH  IS  "P"  BYTES 
;  LONG. 

;  ALL  REGISTERS  ARE  RESTORED  ON  EXIT 
}  WITH  EXCEPTION  OF  A-REGISTER  FOR  COMPARE 
;  OPERATION. 


CSEG 

.a###**##*#**#*###**###*#***#***#**#**##* « <*  * 
PUBLIC  FQFAD4 

FQFAD4 :  ;  ADD  OPERATION 

;  CALLS:  SAVE 


81 


V 


I  SIS- 1!  80PC/8085  MACRO  ASSEMBLER,  V2.0  INT4  PAGE  2 

INT4  -  ’TJLTI-9YTE  INTEGER  ARIP.-TriC  ROUTINES 


LX  OBJ 

SEQ 

SOURCE 

STATEMENT 

XX  CD3C00 

C 

47 

CALL 

SAVE 

X03  60 

48 

MOV 

H,B 

X04  69 

49 

MOV 

L*C 

<H,L)=AX 

X05  0603 

50 

MV  1 

B,P-1 

B  =  LOOP  COUNT; 

0007  A7 

51 

ANA 

A 

CARRY  MUST  START  CLEAR 

52  ADDLP: 

0008  1 A 

53 

LDAX 

D 

0009  8E 

54 

AX 

M 

;(H,L>=(H,L)+(D,E)+CARRY 

OOOA  77 

55 

MOV 

M,A 

XX  23 

56 

INX 

H 

XOC  13 

57 

INX 

D 

XX  05 

58 

DCR 

B 

ANY  MORE  ? 

XOE  C20800 

C 

59 

JNZ 

AXLP 

YES,  LXP 

XII  1A 

60 

LDAX 

D 

MOST  SIGNIF  BYTE 

X12  4E 

61 

MOV 

C,M 

SAVE  OLD  SIGN 

X13  89 

62 

AX 

C 

XI 4  77 

63 

MOV 

M,A 

XI 5  1 A 

64 

LDAX 

D 

SIGN  OF  OP. MSB 

XI 6  A9 

65 

XRA 

c 

SIGN:  OP  =  OLD  AX  ? 

XI 7  F8 

66 

RM 

NO,  CAN'T  OVERFLOW 

X18  7E 

67 

MOV 

A,M 

SIGN  AX,  NEW  =  OLD  ? 

XI 9  A9 

68 

XRA 

C 

XI A  FO 

69 

RP 

YES,  OK 

XI B  C31E00 

C 

70 

JNP 

FQFERH 

NO,  OVERFLOW 

71  J 

72  ; IHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHt 

73  j 

74  PUBLIC  FQFERH 

75  FQFERH:  ;  REPORT  ERROR  TO  USER 

76  ;  AND  CALL  OPER  SYST 

77  ;  CALLS:  OLTTSTR,CRLF 

78  EXTRN  OUTSTR,CRLF 

79  ; 

001 E  212800  C  80  LX I  H,ERRMSG 

0021  CDOOOO  E  81  CALL  OLTTSTR 

0024  CDOOOO  E  82  CALL  CRLF 

0027  CF  83  RST  1  ;  INVOKE  OPER  SYSTEM 

84  * 

0028  41524954  85  ERRMSG:  DB  ' AR I THVET 1C  OVERFLOW' ,0 

002C  484D4554 

0030  4943204F 

0034  56455246 

0038  4C4F57 

003B  00 

86  ; 

g7  .  If**##**#*##***#**#**#*##*########*#*## 

88  ; 

89  SAVE:  ;  SAVE  ALL  REGISTERS 

90  XTHL  ;  SAVE  H,L,  GET  CALLER 


003C  E3 


82 


IS  IS- 1 1  8080/8085  MACRO  ASSEMBLER,  V2.0 
INT4  -  MULTI-BYTE  INTEGER  ARITHMETIC  ROUTINES 


INT4 


PAGE  3 


LX  OBJ 

SEQ 

SOURCE  STATENENT 

003D  D5 

91 

PUSH 

D 

003E  C5 

92 

PUSH 

B 

003F  F5 

93 

PUSH 

PSW 

0040  CD4800 

C 

94 

CALL 

JUNE  ;  PUT  RETURN  ADDR  ON  STAK 

95 

;  RETURN  FROM  CALLING  ROUTINE  CONES  HERE 

96 

;  RESTORE  REGISTERS  AND  RETURN 

0043  FI 

97 

POP 

PSW 

0044  Cl 

98 

POP 

B 

0045  D1 

99 

POP 

D 

0046  El 

100 

POP 

H 

0047  C9 

101 

RET 

0048  E9 

102 

JUMP:  PCHL 

;  JUNE  TO  CALLER 

103 

9 

104 

.a##*#*#********#**#*##*###***#***#**###** 

105 

• 

9 

106 

PUBLIC 

FQFSB4 

107  FQFSB4: 

;  SUBTRACT  OPERATION 

108 

;  CALLS: 

SAVE 

0049  CD3C00 

C 

109 

CALL 

SAVE 

004C  60 

110 

MOV 

H,B 

004D  69 

111 

MOV 

l,C  ;  (D,E)  =  ACC 

004E  EB 

112 

XCHG 

;  (H,L)  =  OP 

004F  0603 

113 

MV  1 

B,P-1  ;  B  »  LOOP  COUNT 

0051  A7 

114 

ANA 

A  ;  BORROW  STARTS  CLEAR 

115 

SUBLP: 

0052  1A 

116 

LDAX 

D 

0053  9E 

117 

SBB 

M  ; (D,E)=(D,E)-(H,L)-BORROW 

0054  12 

118 

STAX 

D 

0055  23 

119 

INX 

H 

0056  13 

120 

INX 

D 

0057  05 

121 

DCR 

B  ;  MORE  BYTES  ? 

0058  C25200 

C 

122 

JNZ 

SUBLP  ;  YES 

005B  1A 

123 

LDAX 

D  ;  MOST  SIGNIF  BYTE 

005C  4F 

124 

MOV 

C,A 

005D  9E 

125 

S88 

M 

005E  12 

126 

STAX 

D 

005F  7E 

127 

MOV 

A,M  ;  SIGN  OF  OP. MSB 

0060  A9 

128 

XRA 

C  ;  SIGN:  OLD  ACC  =  OP  ? 

0061  FO 

129 

RP 

;  YES,  CAN'T  OVERFLOW 

0062  1A 

130 

LDAX 

0 

0063  A9 

131 

XRA 

C  ;  SIGN  ACC,  OLD  =  NEW  ? 

0064  FO 

132 

RP 

;  YES,  OK 

0065  C31E00 

C 

133 

JMP 

FQFERH  ;  NO,  OVERFLOW 

134 

• 

9 

135 

• a#*######*#*########*########*###** *** r * 

9 

136 

9 

137 

PUBLIC 

FQFNEG 

138  FQFNEG: 

;  TWO'S  OONPLENENT  OFFF,/  T  ION 

139 

;  INPUT;  CALLS: 

SAVE 

ISIS-II  8080/8085  MACRO  ASSEfPLER,  V2.0  !K'T4  PAGE  4 

INT4  -  f E'LTI -BYTE  If :TEGER  ARITf'TTIC  r:''JTl>!ES 


LX  OBJ 

SEQ  SOURCE  STATEf4ENT 

140  ; 

0X8  CD3C00 

C 

141 

CALL 

SAVE 

006B  60 

142 

MOV 

H,B 

006C  69 

143 

MOV 

L,C 

006D  0604 

144 

MV  1 

B,P  ;  LXP  OOUNT 

006F  37 

145 

STC 

;  TWO'S  OOKPL  INCR 

146  NEGLP: 

0070  7E 

147 

MOV 

A,M 

0071  4F 

148 

MOV 

C,A  ;  SAVE  MSB  FOR  SIGN 

149 

0072  2F 

150 

CMA 

0073  CEOO 

151 

ACI 

0 

0075  77 

152 

MOV 

M,A  ;CH>L)=NOT(H,L)+CARRY 

0076  23 

153 

INX 

H 

0077  05 

154 

OCR 

B  ;  BYTES  LEFT  ? 

0078  C27000 

C 

155 

JNZ 

NEGLP  ;  YES 

007B  D8 

156 

RC 

;  IF  CARRY,  NO  OVERFLOW 

007C  A9 

157 

XRA 

C  ;  OLD  SIGN  =  NEW  SIGN  ? 

007D  F8 

158 

RM 

;  NO,  OK 

007E  C31E00 

C 

159 

JMP 

FQFERH  ;  YES,  OVERFLOW 

160  : 

161  • a****************************************** 

162  ; 

163 

PUBLIC 

FQFSET,  FQFCLR 

164  FQFSET; 

;  SET  UP  FLOATING  °OINT  REGISTER 

165  ;  INPUTS: 

STACK  =  ADDRESS  OF  REGISTER  AREA 

166  :  DESTROYS: 

B,C,H,L 

167  ; 

0081  El 

168 

POP 

H  ;  H,L  =  RETURN  ADDRESS 

0082  E3 

169 

XTHL 

;  (H,L)  =  AX 

0083  44 

170 

MOV 

B,H 

0084  4D 

171 

MOV 

C,L  ;  (B,C)  =  AX 

172  ; 

173  FQFCLR: 

;  XEAR  AX,EXT,AUX 

174  ; 

0085  CD3C00 

C 

175 

CALL 

SAVE 

0088  AF 

176 

XRA 

A 

0089  16X 

177 

MV  I 

D,3*P 

178  SETLP: 

008B  02 

179 

STAX 

B 

008C  03 

180 

INX 

B 

008D  15 

181 

DCR 

D 

008E  C28B00 

C 

132 

JNZ 

SETLP 

0091  C9 

183 

RET 

184  ; 

1 85  . #*####*#*#****##*#*##*#*##**#***##***#*** #*** 

186  ; 

187 

PUBLIC 

FQFCM4 

188  FQFCM4 : 

;  COI'PARE  OPERATION 

84 
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ISIS-!  I  8080/8085  MACRO  ASSETLER,  V2.0  |NT4  PAGE  5 

INT4  -  MULTI -BVTE  INTEGER  ARITK.'ETIC  ROUTINES 


LX  OBJ  SEQ  SOURCE  STATEMENT 


189  ;  OUTPUTS: 

A  =  RESULT  OF  COMPARISON 

190  ; 

80:  ACC 

=  OP 

191  ; 

40:  ACC  >  OP 

192  ; 

20:  ACC  <  OP 

193  ; 

0092  C5 

194 

PUSH 

B 

0093  D5 

195 

PUSH 

D 

0094  E5 

196 

PUSH 

H 

197 

REFT 

P-1 

198 

INX 

D 

199 

ENDM 

0095  13 

200+ 

INX 

D 

0096  13 

201  + 

INX 

D 

0097  13 

202+ 

INX 

D 

0098  210300 

203 

LXI 

H,3 

009B  09 

204 

DAD 

B 

(H,L)  =  ACC. MSB 

009C  0604 

205 

MV  1 

B*P 

B  =  LOOP  COUNTER 

009E  7E 

206 

MOV 

A,M 

009F  A7 

207 

ANA 

A 

AOC  <  0  ? 

OOAO  F2B800 

C 

208 

JP 

ACCGE 

NO 

00  A3  1 A 

209 

LDAX 

D 

00A4  A7 

210 

ANA 

A 

OP  <  0  ? 

00A5  3E20 

211 

MV  1 

A,20H 

00A7  F2COOO 

C 

212 

JP 

COMRET 

NO 

00 AA  CDD100 

C 

213 

CALL 

COMPLP 

00 AD  El 

214 

POP 

H 

00  AE  D1 

215 

POP 

D 

00 AF  Cl 

216 

POP 

B 

OOBO  3E80 

217 

MV  1 

A,80H 

ACC  =  OP  ? 

00B2  C8 

218 

RZ 

YES 

00B3  3E40 

219 

14V 1 

A,40H 

ACC  >  OP  7 

220 

00B5  DO 

221 

RNC 

YES 

00B6  OF 

222 

RRC 

ACC  <  OP  (MUST  Bl 

OOB7  C9 

223 

RET 

224  ACCGE: 

00B8  1 A 

225 

LDAX 

D 

00B9  A7 

226 

ANA 

A 

OP  <  0  ? 

OOBA  3E40 

227 

MV  1 

A,40H 

OOBC  FACDOO 

C 

228 

JM 

OOMFET 

OOBF  ODD 100 

C 

229 

CALL 

COUPLE 

00C2  El 

230 

POP 

H 

OOC3  D1 

231 

POP 

D 

00C4  Cl 

232 

POP 

B 

00C5  3E80 

233 

MVI 

A,80H 

ACC  >  OP  ? 

OOC7  C8 

234 

RZ 

YES 

0008  3E40 

235 

MVI 

A,40H 

ACC  >  OP 

OOCA  D8 

236 

RC 

YES 

OOC8  OF 

237 

RRC 

ACC  <  OP  O  UST  r: 

85 
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INT4  -  MULT I -BYTE  INTEGER  ARITHfETIC  ROUTINES 


LX  OBJ 

SEQ 

SXRX  STATENENT 

XX  C9 

238 

RET 

239 

9 

240 

XfEET: 

00X  El 

241 

POP 

H 

XX  D1 

242 

POP 

D 

OOX  Cl 

243 

POP 

B 

XDO  C9 

244 

RET 

245 

1 

246 

COMPLP: 

0X1  1 A 

247 

LDAX 

D 

0X2  BE 

248 

CMP 

M 

00D3  X 

249 

RNZ 

XD4  05 

250 

OCR 

B 

XD5  X 

251 

RZ 

XD6  IB 

252 

XX 

D 

0X7  2B 

253 

XX 

H 

XX  C3D100 

C 

254 

JNP 

CONPLP 

255 

9 

256 

.a#######*#***##*##*#*###*#####*##*##*###*## 

9 

257 

• 

9 

258 

PUBLIC 

FQFLD4, FQFFLM 

259 

FQFLD4: 

;  LOAD  AX  FROM  OP 

260 

FQFFLM: 

;  XNVERT  32-BIT  INTEGER 

261 

• 

9 

OXB  X3C00 

C 

262 

CALL 

SAVE 

XDE  2604 

263 

MV  1 

H,P 

264 

LOADLP: 

OOEO  1 A 

265 

LDAX 

D 

XE1  02 

266 

STAX 

B 

XE2  25 

267 

XR 

H 

XE3  X 

268 

RZ 

XE4  13 

269 

INX 

D 

XE5  03 

270 

INX 

B 

XE6  C3E000 

C 

271 

JMP 

LOADLP 

272 

9 

273 

. ********************************************* 
9 

274 

9 

275 

PUBLIC 

FQFST4 

276 

FQFST4: 

;  STORE  FROM  AX  10  OP 

277 

• 

9 

XE9  X3C00 

c 

278 

CALL 

SAVE 

XEC  2604 

279 

MVI 

H,P 

280 

STDRLP: 

OOEE  OA 

281 

LDAX 

B 

XEF  12 

282 

STAX 

D 

XFO  25 

283 

DCR 

H 

XF1  X 

284 

RZ 

XF2  03 

285 

INX 

B 

XF3  13 

286 

INX 

D 

86 
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! 9 '  1 1  8080/8085  MACRO  ASSEMBLER,  V2.0  INT4 

-  MULT I -BYTE  INTEGER  ARITHMETIC  ROUTINES 


LOC  OBJ 

SEQ 

SOURCE 

STATEMENT 

00F4  C3EE00 

C 

287 

JMP 

STORLP 

288 

9 

289 

.a****#####*#*####*##*#****##**##*#****#*##*#### 

290 

f 

291 

PUBLIC  FQFML4,FQFMP4 

292 

FQFML4: 

;  MULTIPLY  OPERATION 

293 

FQFMP4: 

;  SYNONYM 

294 

;  CALLS: 

MOAUX, EXTO, FQFNEG, FQFAD4 

295 

9 

00F7  CD3C00 

C 

296 

CALL 

SAVE 

OOFA  210300 

297 

LXI 

H,P-1 

00  FD  09 

298 

DAD 

B 

OOFE  7E 

299 

MOV 

A,M  ;  MSB  OF  ACC 

OOFF  A7 

300 

ANA 

A  ;  ACC  <  0  ? 

0100  FC8E01 

C 

301 

CM 

MDAUX  ;  YES,  COMPLEMENT 

0103  FC6800 

C 

302 

CM 

FQFNEG  ;  ...  ACC  &  OP 

0106  CDAC01 

C 

303 

CALL 

EXTO 

0109  3E21 

304 

MV  1 

A,P*8+1  ;  P*8  BITS  +  SIGN 

305 

• 

9 

306 

MLOOP: 

;  MAJOR  MULTIPLY  LOOP 

01  OB  F5 

307 

PUSH 

PSW  ;  SAVE  LOOP  COUNT 

01 OC  C5 

308 

PUSH 

B  ;  SAVE  EXT.LSB  ADDR 

0100  E5 

309 

PUSH 

H  ;  EXT. MSB 

01 OE  0608 

310 

MV  1 

B,2*P  ;  SHIFT  COUNT 

0110  7E 

311 

MOV 

A,M 

0111  17 

312 

RAL 

;  EXTEND  SIGN 

313 

MSLP: 

;  SHIFT  EXT  &  ACC  RIGHT 

0112  7E 

314 

MOV 

A,M 

0113  IF 

315 

RAR 

0114  77 

316 

MOV 

M,A 

0115- 2B 

317 

DCX 

H 

0116  05 

318 

DCR 

B 

011 7  C21201 

C 

319 

JNZ 

MSLP 

01 1 A  El 

320 

POP 

H 

01  IB  Cl 

321 

POP 

B  ;  RESTORE  EXT  ADDR 

one  ocoooo 

C 

322 

CC 

FQFAD4  ;  ADD  IF  CARRY  FROM  LS8 

01  IF  FI 

323 

POP 

PSW 

0120  3D 

324 

DCR 

A  ;  LOOP  COUNT 

0121  C20B01 

C 

325 

JNZ 

M.OOP 

326 

;  CHECK  FOR  OVERFLOW 

0124  60 

327 

MOV 

H,B 

0125  69 

328 

MOV 

L,C 

0126  2B 

329 

DCX 

H  ;  (H,L)  =  MSB  AO C 

0127  7E 

330 

'40V 

A,M 

0128  07 

331 

RLC 

0129  E601 

332 

ANI 

1  ;  A.O  =  SIGN  ACC 

01 2B  0604 

333 

MV  1 

B,4  ;  LOOP  OOUNT 

334 

MOFLP:  ;  ADD 

SIGN  TO  EXT 

0120  23 

335 

INX 

H 

87 
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ISIS-II  8080/8085  MACRO  ASSEM8LFP,  V2.n  INT4  PAPE  8 


INT4  -  MULTI -BYTE 

INTEGER 

ARITTCTTIC  ROUTINES 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

01 2E  8E 

336 

ADC 

M 

01 2F  C21E00 

C 

337 

JNZ 

FQFERH  ;  EXT  +  SIGN(ACC)  <>  0 

0132  05 

338 

DCR 

B 

0133  C22D01 

C 

339 

JNZ 

MOFLP 

0136  C9 

340 

RET 

341  ; 

342  * ********************************************* 

343  ; 

• 

344 

PUBLIC 

FQFDV4 

345  FQFDV4: 

;  DIVIDE  OPERATION 

346  ; 

OUTPUTS: 

ACC  =  QUOTIENT 

347  ; 

EXT  =  REMAINDER 

0137  CD3C00 

C 

348 

CALL 

SAVE 

01 3A  210300 

349 

LXI 

H.P-1 

01 3D  09 

350 

DAD 

B  ;  (H,L)  =  MSB  OF  ACC 

01 3E  7E 

351 

MOV 

A,M 

01 3F  210300 

352 

LXI 

H,P-1 

0142  19 

353 

DAD 

D  ;  CH,L)  =  MSB  OF  OP 

0143  A7 

354 

ANA 

A  ;  ACC  <  0  ? 

0144  FC6800 

c 

355 

CM 

FQFNEG  ;  YES,  MAKE  + 

0147  17 

356 

RAL 

0148  7E 

357 

MOV 

A,M 

0149  F5 

358 

PUSH 

PSW  ;  SAVE  SIGNS  FOR  END 

01 4A  A7 

359 

ANA 

A  ;  OP  <  0  ? 

0148  FC8E01 

c 

360 

CM 

MDAUX  ;  YES,  MAKE  + 

01 4E  C5 

361 

PUSH 

B  ;  SAVE  ACC  ADDR 

01 4F  C0AC01 

c 

362 

CALL 

EXTO 

0152  El 

363 

POP 

H  ;  (H,L)  =  ACC 

0153  3E20 

364 

MV 

A,P*8  ;  A  =  LOOP  COUNT 

365  ; 

366  DLOOP: 

;  MAJOR  DIVIDE  LOOP 

0155  F5 

367 

PUSH 

PSW  ;  SAVE  LOOP  COUNT 

0156  E5 

368 

PUSH 

H  ;  ...  ADDR  ACC 

0157  C5 

369 

PUSH 

B  ;  ...  EXT 

0158  0608 

370 

MV  1 

B,2*P  ;  SHIFT  COUNT 

01 5A  A7 

371 

ANA 

A  ;  CLEAR  CARRY 

372  DSLP: 

;  SHIFT  EXT  &  ACC  LEFT 

01 5B  7E 

373 

MOV 

A,M 

01 5C  17 

374 

RAL 

01 5D  77 

375 

MOV 

M,A 

01 5E  23 

376 

INX 

H 

01 5F  05 

377 

DCR 

B 

0160  C25B01 

c 

378 

JNZ 

DSLP 

0163  Cl 

379 

POP 

B  ;  (B,C)  =  EXT 

380  ; 

TRY  SUBTRACTION,  IF  POSITIVE,  LEAVE  IT 

0164  CD4900 

c 

381 

CALL 

FQFSB4 

0167  210300 

382 

LXI 

H,P-1 

01 6  A  09 

383 

DAD 

B  ;  (H,L)  =  EXT. MSB 

016B  7E 

384 

MOV 

A,M 

88 


c,c~ll  8080/8085  MACRO  ASSEM3LER,  V2.0  INT4  PAGE  9 

-  '".HI -BYTE  INTEGER  ARITHMETIC  ROUTINES 


LOC  OBJ 

SEQ 

SOURCE  STATEf-ENT 

016C  El 

385 

POP 

H  ;  (H,L)  =  ACC 

0I6D  A7 

386 

ANA 

A  ;  EXT  >  0  ? 

01 6E  FCOOOO 

C 

387 

CM 

FQFAD4  ;  NO,  ADD  OP  BACK 

0171  FA 7501 

C 

388 

JM 

DECR 

0174  34 

389 

INR 

M  ;  YES,  QUOTIENT  = 

390  DECR: 

;  DECREMENT  LOOP  COUNT 

0175  FI 

391 

POP 

PSW 

0176  3D 

392 

OCR 

A 

0177  C25501 

C 

393 

JNZ 

DLOOP 

394  ;  FIX  UP  SIGNS  OF  QUOTIENT  &  REMAINDER 

01 7A  OB 

395 

XX 

B 

017B  OA 

396 

LDAX 

B 

01 7C  A7 

397 

ANA 

A 

01 7D  FA1E00 

C 

398 

JM 

FQFERH 

0180  FI 

399 

POP 

PSW 

0181  03 

400 

INX 

B  ;  (B,C)  =  REMAINDER 

0182  DC6800 

C 

401 

OC 

FQFNEG  ;  ORIGINAL  ACC  <  0 

0185  44 

402 

MOV 

B,H 

0186  4D 

403 

MOV 

C,L 

0187  IF 

404 

RAR 

0188  E6C0 

405 

ANI 

1 1 OOOOOOB 

01 8A  E46800 

C 

406 

CPO 

FQFNEG 

01 8D  C9 

407 

408  ; 

RET 

409  .  r At*###*#***#************#*****##********** 

410  ; 

411  NDAUX: 

412  ; 

;  MOVE  -OP  TO  AUX  REGISTER 

01 8E  F5 

413 

PUSH 

PSW 

01 8F  210800 

414 

LXI 

H,2*P 

0192  09 

415 

DAD 

B 

0193  C5 

416 

PUSH 

B 

0194  E5 

417 

PUSH 

H 

418 

REFT 

P-1 

419 

LDAX 

D 

420 

MOV 

M,A 

421 

INX 

H 

422 

INX 

D 

423 

ENDM 

0195  1A 

424+ 

LDAX 

D 

0196  77 

425+ 

MOV 

M,A 

0197  23 

426+ 

INX 

H 

0198  13 

427+ 

INX 

D 

0199  1 A 

428+ 

LDAX 

D 

01 9A  77 

429+ 

MOV 

M,A 

019B  23 

430+ 

INX 

H 

019C  13 

431  + 

INX 

D 

01 9D  1A 

432+ 

LDAX 

D 

01 9E  77 

433+ 

MOV 

M,A 

89 
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IKT4  -  MULTI -BYTE  INTEGER  ARITVETIC  rTLTINZS 


LOC  OBJ 

SEQ 

SOURCE  STATEfCNT 

01 9F  23 

434+ 

INX 

H 

01  AO  13 

435+ 

INX 

D 

01A1  1 A 

436 

LDAX 

D 

01 A2  77 

437 

MOV 

M,A 

;  MOVE  OP  INTO  AUX 

01  A3  Cl 

438 

POP 

B 

01 A4  CD6800 

C 

439 

CALL 

FQFNEG 

;  OP  =  -OP 

01 A7  50 

440 

MOV 

D,B 

01 A8  59 

441 

MOV 

E,C 

01 A9  Cl 

442 

POP 

B 

;  (B,C)  =  ACC 

01 AA  FI 

443 

POP 

PSW 

01 AB  C9 

444 

RET 

445 

f 

446 

.a****************************************** 

447 

9 

448 

EXTO: 

;  SET  EXT  REGISTER  TO  ZERO 

449 

9 

01  AC  210400 

450 

LX  I 

H,P 

01 AF  09 

451 

DAD 

B 

;  (H,L>  =  EXT 

01  BO  44 

452 

MOV 

B,H 

01 B1  4D 

453 

MOV 

C,L 

;  (B,C)  =  EXT 

01B2  AF 

454 

XRA 

A 

01 B3  77 

455 

MOV 

M,A 

01 B4  23 

456 

INX 

H 

01 B5  77 

457 

MOV 

M,A 

o 

(I 

fe 

LU 

01B6  23 

458 

INX 

H 

01 B7  77 

459 

MOV 

M,A 

01B8  23 

460 

INX 

H 

01 B9  77 

461 

MOV 

M,A 

;  (H,L)  =  EXT. MSB 

01  BA  C9 

462 

RET 

463 

• 

9 

464 

.****************************************** 

465 

• 

9 

466 

PUBLIC 

FQFABS 

467 

FQFABS : 

;  ABSOLUTE  VALUE  OPERATION 

468 

;  CALLS 

2 

SAVE 

01 BB  CD3C00 

C 

469 

CALL 

SAVE 

01  BE  210300 

470 

LXI 

H,P-1 

01  Cl  09 

471 

DAD 

B 

;  (H,L)  =  MSB  OF  ACC 

01 C2  7E 

472 

MOV 

A,M 

01 C3  A7 

473 

ANA 

A 

;  ACC  <  0  ? 

01 C4  F 06800 

C 

474 

CM 

FQFNEG 

;  YES,  MAKE  POSITIVE 

01C7  C9 

475 

RET 

476 

• 

9 

477 

• 

478 

9 

479 

FUBLIC 

FMUL10 

480 

FMUL10: 

;  MULTIPLY  BY  10  OPERATION 

481 

;  CALLS 

: 

SAVE,FQFAD4 

01 C8  CD3C00 

C 

482 

CALL 

SAVE 
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INT4  -  MULTI -BYTE  INTEGER  ARITHMETIC  ROUTINES 


LOC  OBJ  SEQ  SOURCE  STATEMENT 


01C8 

CDE401 

C 

483 

CALL 

SHIFT  ;  TIMES  2 

01 CE 

C5 

484 

PUSH 

B 

01 CF 

2604 

485 

MV  1 

H,P  ;  LOOP  OOUNT 

486 

FM10LP: 

;  MOVE  *2  TO  EXT 

01D1 

OA 

487 

LDAX 

B 

01 D2 

12 

488 

STAX 

D 

01 D3 

03 

489 

INX 

B 

0104 

13 

490 

INX 

D 

01 D5 

25 

491 

DCR 

H 

01 D6 

C2D101 

C 

492 

JNZ 

FM10LP 

01D9 

Cl 

493 

POP 

B 

01  DA 

CDE401 

C 

494 

CALL 

SHIFT  ;  TIMES  4 

0100 

COE 401 

C 

495 

CALL 

SHIFT  ;  TIMES  8 

01 EO 

CDOOOO 

c 

496 

CALL 

FQFAD4  ;  ACC  =  *8  +  *2 

01 D 

C9 

497 

RET 

498 

9 

499 

SHIFT: 

;  SHIFT  ACC  LEFT  LOGICAL 

500 

;  OUTPUTS: 

D,E  =  B,C  +  P 

501 

;  DESTROYS : 

A,H 

01 E4 

50 

502 

MOV 

D,B 

01 E5 

59 

503 

MOV 

E*C 

01 E6 

2604 

504 

MV  1 

H,P  ;  LOOP  OOUNT 

01 E8 

A7 

505 

ANA 

A  ;  START,  CARRY  =  0 

506 

SHFLP: 

01 E9 

1A 

507 

LDAX 

D  ;  SHIFT  LEFT 

01 EA 

17 

508 

RAL 

;  ...  ONE  BYTE 

01 EB 

12 

509 

STAX 

D  ;  ...  AT  A  TIME 

01  EC 

13 

510 

INX 

D 

01  ED 

25 

511 

DCR 

H 

01  EE 

C2E901 

c 

512 

JNZ 

SHFLP 

01F1 

DA1E00 

c 

513 

JC 

FQFERH  ;  CARRY  =  OVERFLOW 

01 F4 

C9 

514 

RET 

515 

• 

9 

516 

.a**************************************** 

517 

• 

9 

518 

END 

PUBLIC 

SYMBOLS 

FMUL10 

C  01C8 

FQFABS 

C  01 B8 

FQFAD4  C  0000  FQFCLR  C  COE!) 

FQFCM4 

C  0092 

FQFDV4 

C  0137 

FQFERH  C  001 E  FQFFLM  C  OCDE; 

FQFLD4 

C  OODB 

FQFM4 

C  00F7 

FQFMP4  C  00F7  FQFNEG  C  0058 

FQFSB4 

C  0049 

FQFSET 

C  0081 

FQFST4  C  00E9 

EXTERNAL  SYMBOLS 

CRLF  E  0000  OUTSTR  E  0000 


USER  SYMBOLS 

ACOGE  C  00B8  ADOLP  C  0008  OOMPLP  C  0001  OOfEET  C  00a 

CRLF  E  0000  DECR  C  0175  DLOOP  C  0155  DSLP  C  0153 
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-  MULT  I -BYTE  INTEGER  AR I  TRET  1C  ROUTINES 


ERRMSG  C  0028 

EXTO 

C  01  AC 

FM10LP  C  01D1 

FMUL10  C  01C8 

FQFABS  C  01 BB 

FQFAD4 

C  0000 

FQFCLR  C  0085 

FQFCM4  C  0092 

FQFDV4  C  0137 

FQFERH 

C  001 E 

FQFFLM  C  OODB 

FQFLD4  C  OODB 

FQFML4  C  00F7 

FQFMP4 

C  OOF  7 

FQFNEG  C  0068 

FQFSB4  C  0049 

FQFSET  C  0081 

FQFST4 

C  00E9 

JIM5 

C  0048 

LOADLP  C  OOEO 

fOAUX  C  01 8E 

MOOP 

C  01  OB 

MOFLP 

C  01 2D 

MSLP  C  01 12 

NEGLP  C  0070 

OUTSTR 

E  0000 

P 

A  0004 

SAVE  C  003C 

SETLP  C  0088 

SHFLP 

C  01E9 

SHIFT 

C  01 E4 

STORLP  C  OOEE 

SUBLP  C  0052 

ASSEMBLY  OONPLETE,  NO  ERRORS 

C 
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ASM  :F1:M0MT.SRC  PAGELENGTH(60) 


IS  IS- 1 1  8080/8085  MACRO  ASSEM3LER,  V2.0  MONIT  PAGE  1 

MON IT  -  REPLACE  SBC  MONITOR 

LOC  OBJ  SEQ  SOURCE  STATEMENT 

1  SMACROFILE  PAGEWIDTTK79) 

2  $TITLE( 'MONIT  -  REPLACE  SBC  MONITOR') 

3  ; 

4  ;  13  JAN  81 

5  ; 

6  NAME  MONIT 

7  EXTRN  OUTSTR.CRLF.GAMMA 

8  PUBLIC  Ct,00 

9  J 

10  CSEG 

11  ; 

12  ;  SYSTEM  EQUATES 

13  ; 


0000 

14  W)S 

SET 

0 

• 

9 

MDS  OR  SBC  SWITCH 

15 

IF 

NOS 

16  US ART 

EQU 

0F6H 

• 

9 

MDS  PORT  ASSIGNMENTS 

17  ICCP 

EQU 

OFCH 

18 

ELSE 

OOEC 

19  USART 

EQU 

OECH 

• 

9 

RS232  PORT 

00  DC 

20  TIMER 

EQU 

ODCH 

• 

9 

COUNTER/TIMER  PORT 

OODA 

21  ICCP 

EQU 

ODAH 

• 

9 

INTERUPT  CONTROL  PORT 

00E7 

22  OUTCTL 

EQU 

• 

9 

CONTROL  t’4,35,E6 

00  EB 

23  INCTL 

EQU 

OcBH 

• 

9 

CONTROL  E8,E9,EA 

00E6 

24  OUTBYT 

EQU 

0E6H 

1 

OUTPUT  TO  ALL  MCA  LINES 

25  ; 

0000 

26 

ORG 

0 

• 

9 

RESET 

27  ZERO:  ;  RELOCATABLE  ZERO  SYMBOL 


0000  AF 

28 

XRA 

A 

0001  47 

29 

MOV 

B,A 

;  FROM  ADDRESS  =  0 

0002  4F 

30 

MOV 

C,A 

0003  2680 

31 

MV  1 

H,80H 

;  TO  ADDRESS  =  8000H 

0005  C30F00 

32 

JW5 

MOVE-1 

33 

9 

0008 

34 

ORG 

8 

;  RESTART  1  (BREAKPOINT) 

0008  F3 

35 

Dl 

0009  CDC001 

C 

36 

CALL 

REGSV 

OOOC  C33501 

C 

3/ 

JMP 

BREAK 

38 

• 

9 

OOOF  6F 

39 

MOV 

L.A 

;  FINISH  ADDRESS 

0010 

40 

MOVE  EQU 

S-ZERO 

;  ABSOLUTE  ADDRESS 

41 

;  MOVE  PROGRAM  FROM  EPROM  TO  RAM 

0010  OA 

42 

LDAX 

B 

0011  77 

43 

MOV 

M,A 

;  MOVE  ONE  BYTE 

0012  03 

44 

INX 

B 

0013  23 

45 

INX 

H 

0014  78 

46 

MOV 

A,B 
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ISIS-II  8080/8085  MACRO  ASSEMBLER,  V2.0 
MON  IT  -  REPLACE  SBC  MONITCR 


MON  IT  PAGE  2 


LX  OBJ 

SEp 

SOURCE  STATEMENT 

0015  FE10 

47 

CPI 

10H  ;  DONE  ? 

0017  CA1D00 

C 

48 

JZ 

INIT  ;  YES 

001 A  C31000 

49 

JM3 

MOVE  ;  NO,  LOOP 

50  ; 

51  ;  THE  PRECEDING  CODE  RUNS  AT  ORIGIN  0 

52  ;  THE  SUCCEEDING  OODE  RUNS  AT  ORIGIN  8000H 

53  ; 

54  IN  IT: 

;  INITIALIZE  AFTER  RESET 

55 

;  ASSUMES  HARDWARE  RESET 

56  ; 

57  ;  SERIAL  I/O 

INITIALIZATION 

001 D  3E4E 

58 

MV 

A,01001110B  ;  1  STOP, NO  PARITY, 

59 

;  8  BIT,16*BAUD 

001 F  D3ED 

60 

OUT 

USART+1  ;  MODE  INSTRUCTION 

0021  3E27 

61 

MV  1 

A, 001001 1 1B  ;  RTS,RXE,*DTR,TXE 

0023  D3ED 

62 

OUT 

USART+1  ;  C0M4AND  INSTRUCTION 

0025  31D03F 

63 

LXI 

SP.MSTAK 

0028  3EB6 

64 

MV 

A, 101 101 1 0B  ;  CTR2,B0TH,M0DE3,BIN 

002A  D3DF 

65 

OUT 

TIMER+3  ;  CONTROL  WORD 

002C  21EOOO 

66 

LXI 

H,32*7  ;  300  BAUD 

002F  7D 

67 

MOV 

A,L 

0030  D3DE 

68 

OUT 

TIMER+2  ;  COUNTER  2  LSB 

0032  7C 

69 

MOV 

A,H 

0033  D3DE 

70 

OUT 

TIMER+2  ;  COUNTER  2  MSB 

0035  3E37 

71 

MV 

A,001 101 1 1B  ;  RTS,RESET,RXE, 

72 

;  *DTR,TXE 

0037  D3ED 

73 

OUT 

USART+1  ;  COMMAND  INSTRUCTION 

74  ; 

75  ;  PARALLEL  I/O  INITIALIZATION 

0039  3E90 

76 

MVI 

A,  10010000B  ;  M0DE=0  1-1  2-0  3-0 

003B  D3E7 

77 

OUT 

OUTCTL 

003D  3E9B 

78 

MVI 

AJ0011011B  ;  M0DE=0  4-1  5-1  6-1 

003F  D3EB 

79 

OUT 

INCTL 

0041  AF 

80 

XRA 

A 

0042  D3E6 

81 

OUT 

OUTBYT  ;  ALL  LINES  HIGH 

82  ; 

83  ;  INITIALIZE 

INTERUPT  CONTROLLER 

0044  3E08 

84 

MVI 

A,8 

0046  110C01 

C 

85 

LXI 

D,  INTRPT  ;  ADORESS  TO  JU’  P  TO 

0049  21E03F 

86 

LXI 

H, JTABLE  ;  PLACE  TO  PUT  JUMPS 

87  INI05: 

004C  36C3 

88 

MVI 

M,0C3H  ;  JtP  OPCODE 

004E  23 

89 

INX 

H 

004F  73 

90 

MOV 

M,E  ;  ADDRESS  LSB 

0050  23 

91 

INX 

H 

0051  72 

92 

MOV 

M,D  ;  ...  MSB 

0052  23 

93 

INX 

H 

0053  23 

94 

INX 

H 

0054  30 

95 

OCR 

A 

94 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

0055  C24C00 

C 

96 

JNZ 

IN  105  ;  MOVE  JUNP  TABLE  TO  DATA 

0058  3EF6 

97 

MV  1 

A, (LOW  JTABLE)  +1011  OB 

98 

;  A7-5,4  BYTE, SINGLE 

005A  D3DA 

99 

OUT 

ICCP  ;  INTERUPT  OONTROL  WORD  1 

005C  3E3F 

100 

MV  1 

A,H!GH  JTABLE  ;  A15-8 

005E  D3DB 

101 

OUT 

ICCP+1  ;  INTERUPT  OONTROL  WORD  2 

0060  AF 

102 

XRA 

A 

0061  D3DB 

103 

OUT 

ICCPfl  ;  NO  INTERUFTS  MASKED 

104 

END  IF 

105  START: 

0063  210000 

E 

106 

LXI 

H,GAWA  ;  START  ADDRESS  OF  MAIN 

0066  22D83F 

107 

SHLD 

PCSAVE  ;  ...  ROUTINE  IS  DEFAULT 

0069  21C03F 

108 

LXI 

H,MSTAK-16 

006C  F9 

109 

SPHL 

006D  22DA3F 

110 

SHLD 

SPSAVE  ;  DEFAULT  STACK  POINTER 

in  ; 

SEND  SIGNON  MESSAGE 

0070  CD 0000 

E 

112 

CALL 

CRLF 

0073  219F00 

C 

113 

LXI 

H,SGNON 

0076  CD 0000 

E 

114 

CALL 

OUTSTR 

115  ; 

117  ; 

118  GETCMD:  ;  GET  NEXT  00M4AND 

119  ; 


0079  31D03F 

120 

LXI 

SP,MSTAK 

;  REINITIALIZE  STACK 

007C  CDOOOO 

E 

121 

CALL 

CRLF 

007F  0E2E 

122 

MV  1 

c  t  * 
w  •  » 

PRONPT  FOR  00M4AND 

0081  CD5C01 

C 

123 

CALL 

CO 

0084  CD 5001 

C 

124 

CALL 

Cl 

0087  4F 

125 

MOV 

C,A 

0088  CD5C01 

C 

126 

CALL 

CO  ; 

ECHO  THE  OOWAND 

008B  79 

127 

MOV 

A,C 

008C  010400 

128 

LXI 

B,4 

B,C  =  INCR/OOMMAND 

008F  21B100 

C 

129 

130  GTC05: 

LXI 

H,CTABLE 

0092  BE 

131 

CMP 

M  ; 

THIS  COWAND  ? 

0093  CA9D00 

C 

132 

JZ 

GTC10  ; 

YES 

0096  DA6701 

C 

133 

JC 

ERROR  ; 

NEVER 

0099  09 

134 

DAD 

B  ; 

MAYBE  NEXT 

009A  C39200 

C 

135 

136  GTC10: 

JW 

GTC05 

009D  23 

137 

INX 

H 

009E  E9 

138 

PCHL 

009F  4D494352 

139  SG NON: 

DB 

•MICRO  GAMMA  Vl.0',0 

00 A3  4F204741 
00A7  4D404120 
00 AB  20563 12E 
00  AF  30 
OOBO  00 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

140  CTABLE: 

;  COMMANDS  IN  ALPHA  ORDER 

GOBI  44 

141 

DB 

'D* 

00B2  C3BEOO 

C 

142 

JNP 

DCMD 

00B5  47 

143 

DB 

*G* 

00B6  C3DDOO 

c 

144 

JVP 

GCMD 

00B9  53 

145 

DB 

*S» 

OOBA  C3E900 

c 

146 

JNP 

SCMD 

OOBO  FF 

147 

DB 

OFFH 

;  END  OF  COMMANDS 

148  ; 

1 49  .  #****####******#*#**##*#*#*##*#*********## 

150  ; 

151  DCMD: 

;  DISPLAY  CONMAND 

OOBE  CD6F01 

c 

152 

CALL 

GETHX 

;  GET  START  ADDRESS 

00C1  D26701 

c 

153 

JNC 

ERROR 

;  NONE 

00C4  CD 0000 

E 

154 

CALL 

CRLF 

00C7  CD4701 

C 

155 

CALL 

ADRD 

;  PRINT  ADDRESS 

OOCA  1610 

156 

157  DCM10: 

MVI 

D,16 

;  ...  AND  16  DATA  BYTES 

OOOC  0E20 

158 

MV  1 

c,‘  • 

;  BLANK  AS  SEPARATOR 

OOCE  CD5C01 

C 

159 

CALL 

00 

00D1  7E 

160 

MOV 

A,M 

0002  CD ABO 1 

C 

161 

CALL 

mxrr 

;  PRINT  ONE  DATA  BYTE 

00D5  23 

162 

INX 

H 

00D6  15 

163 

OCR 

D 

00D7  C2CC00 

C 

164 

JNZ 

DCM10 

OODA  C37900 

C 

165 

166  ; 

JNP 

6ETCMD 

1 67  . ******************************************** 

168  ; 

169  GCM): 

;  GO  COMMAND 

0000  CD6F01 

C 

170 

CALL 

GETHX 

;  GET  ADDR  TO  START 

OOEO  D2D901 

c 

171 

JNC 

RSTTF 

;  NONE,  USE  LAST  PC 

00E3  22D83F 

172 

SHLD 

PCSAVE 

00E6  C3D901 

c 

173 

JNP 

RSTTF 

174  ; 

175  . a***#*#***#**##*###*#*##******##*#****#*#### 

176  ; 

177  SCMD: 

;  SET  NEMORY  COMMAND 

00E9  CD6F01 

c 

178 

CALL 

GETHX 

OOEC  D26701 

c 

175 

180  SCM05: 

JNC 

ERROR 

;  NO  START  ADDRESS 

OOEF  7A 

181 

140V 

A,D 

OOFO  FE20 

182 

CPI 

•  i 

;  DELIM  =  •  *  ? 

00F2  C27900 

c 

183 

184  SCM10: 

JNZ 

GETCMD 

;  NO,  DONE 

00F5  7E 

185 

MOV 

A,M 

00F6  CD ABO 1 

c 

186 

CALL 

W40UT 

;  PRINT  CURRENT  VALUE 

00F9  0E2D 

187 

MVI 

c,»-’ 

OOFB  CD5C01 

c 

188 

CALL 

CO 

96 
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LOC  OBJ 

SEO 

SOURCE  STATEMENT 

OOFE  E5 

189 

PUSH 

H 

OOFF  CD6F01 

C 

190 

CALL 

GETHX  ;  GET  NEW  VALUE 

0102  40 

191 

MOV 

C»L 

0103  El 

192 

POP 

H 

0104  D20801 

C 

193 

JNC 

SCM15  ;  WAS  THERE  ONE  ? 

0107  71 

194 

195  SCM15: 

MOV 

M,C  ;  YES 

0108  23 

196 

INX 

H  ;  NEXT  BYTE 

0109  C3EFOO 

C 

197 

JNP 

SCM05 

198  ; 

1 99  . a*#**###*###*****#####**#*#******#*##*#*#*** 

200  ; 

201  INTRPT: 

;  PROCESS  INTERUPT 

01 OC  CDC001 

C 

202 

CALL 

REGSV  ;  SAVE  ALL 

01  OF  211901 

C 

203 

LXI 

H, INTMSG 

0112  3E20 

204 

MVI 

A,20H  ;  UNSPECIFIC  END  OF  INT 

0114  D3DA 

205 

OUT 

ICCP 

0116  C33801 

C 

206 

jmp 

ADROUT  {PRINT  ADDRESS 

0119  494E5445 
01  ID  52555054 
0121  20415420 
0125  00 

207  IN7MSG: 

DB 

’INTERUPT  AT  ',0 

0126  4252454 1 
01 2A  4B504F49 
01 2E  4E542041 
0132  5420 

208  BRKMSG: 

DB 

’BREAKPOINT  AT  ’,0 

0134  00 

209  BREAK: 

0135  212601 

C 

210 

211  ; 

LXI 

H, BRKMSG 

212  • a****************************************** 

213  ; 

214  ADROUT: 

{PRINT  ADDRESS  OF  BREAK/ INTERUF 

0138  CD 0000 

E 

215 

CALL 

CRLF 

01 3B  CD 0000 

E 

216 

CALL 

OUTSTR 

01 3E  2AD83F 

217 

LHLD 

PCSAVE 

0141  CD4701 

C 

218 

CALL 

ADRD 

0144  C37900 

C 

219 

JNP 

GETCMD 

220 

221 

222  ADRD: 

;  PRINT  ADDRESS  IN  H,L 

0147  7C 

223 

MOV 

A,H 

0148  CDAB01 

C 

224 

CALL 

woirr 

01 4B  7D 

225 

MOV 

A*L 

01 4C  CD ABO 1 

C 

226 

CALL 

MtXJT 

01 4F  C9 

227 

228 

229 

230  Cl: 

RET 

;  GET  ONE  BYTE  FROM  OONSOLE 
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LOC  OBJ 

SEp 

SOURCE  STATENENT 

0150  DBED 

231 

IN 

USART+1 

0152  E602 

232 

ANI 

10B 

;  RCV  BUFFER  FULL  ? 

0154  CA5001 

C 

233 

JZ 

Cl 

;  NO 

0157  DBEC 

234 

IN 

USART 

;  GET  CHAR 

0159  E67F 

235 

ANI 

7FH 

;  GET  RID  OF  PARITY 

01 5B  C9 

236 

RET 

237 

238 

239  00: 

;  PRINT  ONE  BYTE  AT  OONSOLE 

01 5C  DBED 

240 

IN 

USART+1 

01 5E  E601 

241 

ANI 

IB 

;  XMIT  BUFFER  EMPTY 

0160  CA5C01 

C 

242 

JZ 

CO 

;  NO 

0163  79 

243 

MOV 

A,C 

0164  D3EC 

244 

OUT 

USART 

;  PUT  CHAR 

0166  C9 

245 

RET 

246 

247 

248  ERROR: 

;  TELL  USER  HE  GOOFED 

0167  0E23 

249 

MV  1 

C,*#» 

0169  CD5C01 

C 

250 

CALL 

00 

01 6C  C37900 

C 

251 

JNP 

GETCMD 

252 

253 

254  GETHX: 

;  GET  4  HEX  DIGITS 

01 6F  210000 

255 

LXI 

H,0 

;  H,L  =  OUTPUT  =  0 

0172  1E00 

256 

MV  1 

E*0 

;  FLAG  =  NOTHING  YET 

257  GHX05 : 

0174  CD 5001 

C 

258 

CALL 

C! 

;  GET  CHAR 

0177  4F 

259 

MOV 

C,A 

0178  CD5C01 

C 

260 

CALL 

CO 

;  ...  ECHO 

01 7B  CDF 001 

C 

261 

CALL 

VALDL 

;  DELIMETER  ? 

01 7E  C28501 

C 

262 

JNZ 

GHX10 

;  NO 

0181  51 

263 

MOV 

D,C 

;  D  =  DELIMETER 

0182  7B 

264 

MOV 

A,E 

0183  07 

265 

RLC 

;  CARRY 

=  ONE  OR  MORE  DIGITS 

0184  C9 

266 

RET 

267  GHX10: 

0185  CD9701 

C 

268 

CALL 

CNVBN 

0188  1EFF 

269 

MV! 

E,OFFH 

;  FLAG  =  SOMETHING 

01 8A  29 

270 

DAD 

H 

;  *2 

01 8B  29 

271 

DAD 

H 

;  *4 

01 8C  29 

272 

DAD 

H 

;  *8 

01 80  29 

273 

DAD 

H 

;  H,L  =  H,L  *  16 

01 8E  85 

274 

ADO 

L 

018F  6 F 

275 

MOV 

L,A 

0190  D27401 

C 

276 

JNC 

GHX05 

0193  24 

277 

INR 

H 

;  H,L  =  H,L  +  A 

0194  C37401 

C 

278 

JNP 

GHX05 

279 
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LX  OBJ 

SEQ 

SOURCE 

STATEMENT 

280 

281  CNVBN: 

;  CONVERT  HEX  ASCII  — >  BINARY 

0197  79 

282 

MOV 

A,C 

0198  D630 

283 

SUI 

•O'  ;  <  0  ? 

01 9A  DA6701 

C 

284 

JC 

ERROR  ;  YES 

01 9D  FEOA 

285 

CPI 

10  ;  <  10  ? 

01 9F  D8 

286 

RC 

;  YES,  0-9 

01  AO  C6F9 

287 

ADI 

»0»-'A*+10  ;  <  A  ? 

01 A2  D26701 

C 

288 

JNC 

ERROR  ;  YES 

01 A5  FE10 

289 

CPI 

16  ;  >  F 

01 A7  D8 

290 

RC 

;  NO,  A-F 

01 A8  C36701 

C 

291 

JNP 

ERROR  ;  YES 

292 

293 

294  NMOUT: 

;  PRINT  ONE  BYTE  AS  2  HEX  DIGITS 

01 AB  F5 

295 

PUSH 

PSW 

296 

REPT 

4 

297 

RRC 

298 

ENDM 

01  AC  OF 

299+ 

RRC 

01  AD  OF 

300+ 

RRC 

01 AE  OF 

301+ 

RRC 

01 AF  OF 

302+ 

RRC 

01  BO  CDB401 

C 

303 

CALL 

PRVAL  ;  PRINT  HIGH  NIBBLE 

01 B3  FI 

304 

POP 

PSW 

305  FRVAL: 

;  PRINT  LOW  NIBBLE  AS  HEX  DIGIT 

01 B4  E60F 

306 

ANI 

OFH 

01 B6  C690 

307 

ADI 

90H  ;  90  <—  0  9A  <—  A 

01 B8  27 

308 

DAA 

;  90  100 

01 B9  CE40 

309 

ACI 

40H  ;  DO  41 

01 BB  27 

310 

DAA 

; 130  =  'O'  41  =  'A' 

01BC  4F 

311 

MOV 

C,  A 

01 BD  C35C01 

C 

312 

JM3 

CO 

313 

314 

315  REGSV: 

;  SAVE  REGISTERS 

01  CO  22D63F 

316 

SHLO 

HLSAVE  ;  H,L 

01 C3  El 

317 

POP 

H  ;  CALLER 

01C4  D 

318 

XTHL 

;  INTERUPT/BREAK 

01 C5  22D83F 

319 

SHLD 

PCSAVE 

01 C8  F5 

320 

PUSH 

PSW  ;  PRESERVE  FLAGS 

01 C9  210400 

321 

LXI 

H,4 

01 X  39 

322 

DAD 

SP  ;  SP  AT  INTERUR"- 

01  CD  22DA3F 

323 

SHLD 

SPSAVE 

01  DO  FI 

324 

POP 

PSW 

0101  El 

325 

POP 

H  ;  CALLER 

0102  31D63F 

326 

LXI 

SP,  HLSAVE 

01 D5  F5 

327 

PUSH 

PSW 

0106  C5 

328 

PUSH 

B 
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MONITOR 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

0107  05 

329 

PUSH 

D 

;  NOW  SP  =  MSTAK 

0108  E9 

330 

PCHL 

;  RETURN  TO  CALLER 

331 

332 

333  RSTTF: 

;  RESTORE  REGISTERS  AND  START 

0109  CD 0000 

E 

334 

CALL 

CRLF 

01  DC  F3 

335 

01 

0100  31D03F 

336 

LXI 

SP, MSTAK  ;  REGISTERS  SAVED 

01 EO  D1 

337 

POP 

D 

;  ...  ABOVE  STACK 

01  El  Cl 

338 

POP 

B 

01E2  FI 

339 

POP 

PSW 

01 D  2ADA3F 

340 

LHLD 

SPSAVE 

01 E6  F9 

341 

SPHL 

;  STACK  POINTER 

01 E7  2AD83F 

342 

LHLD 

PCSAVE 

;  BREAK/ INTERUPT  POINT 

01 EA  E5 

343 

PUSH 

H 

01 EB  2AD63F 

344 

LHLD 

HLSAVE 

;  H,L 

01  EE  FB 

345 

El 

01 EF  C9 

346 

347 

348 

349  VALDL: 

RET 

;  CHECK 

FOR  VALID  DELIMETER 

01 FO  79 

350 

MOV 

A,C 

01  FI  FE20 

351 

CPI 

f  t 

;  BLANK  ? 

01 F3  C8 

352 

RZ 

;  YES 

01 F4  FEOD 

353 

CPI 

13 

;  CARR  1 AGF  RETURN  ? 

01 F6  C9 

354 

355  ; 

RET 

i  Z  STATUS  TELLS  TALE 

356  ; a***************************************** 

357  ; 

358 

ASEG 

3FD0 

359 

ORG 

4000H-48 

360  MSTAK: 

;  MONITOR  STACK 

0006 

361 

DS 

6 

;  REGISTERS  DE,BC,PSW 

0002 

362  HLSAVE: 

DS 

2 

;  hl 

0002 

363  PCSAVE : 

DS 

2 

;  PROGRAM  COUNTER 

0002 

364  SPSAVE: 

365 

366 

DS 

2 

;  STACK  POINTER 

3FE0 

367 

ORG 

4000H-32 

0020 

368  JTABLE: 

369 

370 

DS 

32 

;  INTERUPT  JUVP  TABLE 

0063 

C 

371 

END 

START 

;  START  FOR  MDS  L’SF 

PUBLIC  SYMBOLS 

Cl  C  0150 

CO 

C  01 5C 

EXTERNAL  SYMBOLS 

CRLF  E  0000  GAMMA  E  0000  OUTSTR  E  0000 
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ADRD 

C 

0147 

ADROUT 

C 

0138 

BREAK 

C 

0135 

BRKMSG  C 

0126 

Cl 

C 

0150 

CNVBN 

C 

0197 

00 

C 

01 5C 

CRLF 

E 

0000 

LU 

§ 

C 

00B1 

DCM10 

C 

OOCC 

DCMD 

C 

OOBE 

ERROR 

C 

0167 

GM1A 

E 

0000 

GCMD 

C 

OODD 

GET04D 

c 

0079 

GETHX 

C 

01 6F 

GHX05 

C 

0174 

GHX10 

C 

0185 

GTC05 

c 

0092 

GTC10 

C 

009D 

HLSAVE 

A 

3FD6 

ICC P 

A 

OODA 

INCTL 

A 

00  EB 

IN  105 

C 

004C 

IN  IT 

C 

001D 

1 NTT4SG 

C 

0119 

IN7RFT 

C 

01 OC 

JTABLE  A 

3FE0 

IPS 

A 

0000 

MOVE 

A 

0010 

MSTAK 

A 

3FD0 

WOUT 

C 

01 AB 

OUTBYT 

A 

00E6 

ourcn 

A 

00E7 

0JTS1R 

E 

0000 

PCSAVE  A 

3FD8 

PRVAL 

C 

01 B4 

REGSV 

C 

01  CO 

RSTTF 

C 

01 D9 

SCM05 

C 

OOEF 

SCM10 

C 

00F5 

sail  5 

C 

0108 

SCMD 

C 

00E9 

SGNON 

C 

009F 

SPSAVE 

A 

3FDA 

START 

c 

0063 

TIMER 

A 

OODC 

USART 

A 

OOEC 

VALDL 

C 

01 FO 

ZERO 

c 

0000 

ASSEMBLY  OOf-PLETE,  NO  ERRORS 
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ISIS-II  FORTRAN-80  VI .0  COMPILATION  OF  PROGRAM  UNIT  FKPROC 
OBJECT  MODULE  PLACED  IN  PKPROC.OBJ 

(COMPILER  INVOKED  BY:  :F1:FORT80  PKPROC.FOR  PAGELENGTH(54) 


1 

2 

3 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


$PAGEWIDTH{73)  DATE( 17  NOV  80) 

$TITLE( 'PKPROC  -  PROCESS  ONE  PEAK') 

SUBROUTINE  PKPROCI NPKL , NPKR, LASTR ) 

C  FIND  CHANNEL  NUMBER  AND  AREA  OF  PEAK 
C  'FIND  CHANNEL  OF  MAX  COUNTS  BETWEEN  NPKL  &  NPKR 
C  FIND  LOCAL  MINIMUM  ON  BOTH  SIDES  OF  MAXIMUM 
C  ASSUME  TRAPEZOIDAL  BACKGROUND 
C  CONFUTE  NET  PEAK  AREA 

C  CONFUTE  "EXACT"  PEAK  LOCATION  BY  FIRST  MOMENT 
C 

C  NOTE:  MAX  WIDTH  OF  PEAK  ASSUMED  TO  BE  30  CHANNELS 
C 

COMMON  NCHANL , NPEAKS , OOEFF ( 8 ) 

OONMON  CHANL(50) .TOTAL (50) .AREA (50) ,PKERGY(50) ,PGPS(50) 
COMMON  TIME,00UNTS(4095) 

C 

NPEAKS=NPEAKS+1 
CALL  OUTCHRf 'PEAK  £') 

CALL  OUTI NT ( NPEAKS, 0) 

CALL  OUTCHRC  BETWEEN  ') 

CALL  0UTINT(NPKL,0) 

CALL  OLTTCHRP  AND  ') 

CALL  0LTTINT(NFKR,0) 

CALL  CRLF 

IF(NPEAKS.EQ.50)  CALL  OUTCHRT '"LIMIT*  NO  FURTHER  PEAKS  P 
-ROCESSED') 

IF (NPEAKS. GT. 50)  RETURN 
C  FIND  CHANNEL  WITH  MAX  COUNTS 
TEST=0 

DO  20  l=NPKL,NPKR 

IF(COUNTS( I ) .GT.TEST)  THEN 
TEST=OOUNTS( I ) 

NPEAK=I 
END  IF 

20  CONTINUE 

CALL  CUTCHRC  MAX  COUNT  IN  CHANNEL  ») 

CALL  OUTINT(NPEAK.O)  ’ 

CALL  CRLF 

C  FIND  LOCAL  MINIMA 
L I M I T=20 

IF(NPEAK-LIMIT.LT.I)  LIMIT=NPEAK-2 
DO  100  1=1, LIMIT 
NLEFT=NPEAK-I 

IF  (COUNTS  (NLEFT).LE. OOUNTS (NL  EFT-1))  GOTO  120 
100  CONTINUE 
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33 

CALL  OUTCHRC  LEFT  LIMIT') 

34 

120 

LIMIT=10 

35 

1 F ( NPEAK+L 1 M 1 T . GT . NCHANL )  L 1 M 1 T=NCHANL-NPEAK- 1 

36 

DO  130  1=1 , LIMIT 

37 

NR  1 GKT=NPEAK+ 1 

38 

IFCOOUNTS(NRIGHT) .LE.C0UNTS(NRIGHT+1 ))  GO  TO  140 

39 

130 

OONTINUE 

40 

CALL  OUTCHRC  RIGHT  LIMIT') 

C  SLOPE  OF  BACKGROUND  (SCALED  1000) 

41 

140 

SLOPE= 1 000* (OOUNTS ( NR IGHT) -COUNTS ( NLEFT) )/( NR 1 GHT-NLEFT) 

C  INTEGRATE  UNDER  PEAK 

42 

CALL  OUTCHRC  INTEGRATING  ») 

43 

CALL  0UTINT(NLEFT,0) 

44 

CALL  OUTCHRC  TO  ') 

45 

CALL  0UTINT(NRIGHT,0) 

46 

CALL  CRLF 

47 

TOTAL ( NPEAKS )=0 

48 

AREA(NPEAKS)=0 

49 

FIRSTM=0 

50 

DO  200  l=NLEFT,NRIGHT 

51 

TOTAL ( NPEAKS ) =TOTAL ( NPEAKS ) +OOUNTS ( 1 ) 

52 

ABOVE=OOUNTS ( 1 ) -OOUNTS (NLEFT) -SLOPE* ( l-NLEFT)/1000 

53 

AREA ( NPEAKS ) =AREA ( NPEAKS ) +ABOVE 

54 

F 1 RSTM=F 1 RSTM+ 1 *ABOVE 

55 

200 

OONTINUE 

56 

CALL  OUTCHRC  TOTAL  COUNTS  =  ') 

57 

CALL  OUTFLT (TOTAL ( NPEAKS ) ,  0 ) 

58 

CALL  CRLF 

59 

CALL  OUTCHRC  NET  AREA  =  ') 

60 

CALL  0UTELT(AREA(NPEAKS),0) 

61 

IF(AREA(NFEAKS) .LE.O)  THEN 

62 

CALL  OUTCHRC  **  CAUTION  **') 

63 

CHANL ( NPEAKS ) =FLOAT ( NPEAK )* 1 0 

64 

ELSE 

65 

CHANL ( NPEAKS ) =1 0*F 1 RSTM/AREA ( NPEAKS ) 

66 

CALL  CRLF 

67 

CALL  OUTCHR( '  PEAK  AT  CHANNEL  ' ) 

68 

CALL  OUTFLT( CHANL (NPEAKS), 100) 

69 

END  IF 

70 

CALL  CRLF 

71 

RETURN 

72 

END 

MODULE  INFORMATION: 

OODE  AREA  SIZE  =  055BH  1371D 
VARIABLE  AREA  SIZE  =  0034H  520 
MAXIMUM  STACK  SIZE  =  OOOCH  12D 
86  LINES  READ 
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LX  OBJ 

SEQ 

SOURCE  STATBENT 

1 

SMACROFILE  NOCOND 

2 

•* 

$TI  TIE (’PKPROC 

-  AREA  AND  CHANNEL  OF  PEAK') 

4 

C 

;  20  NOV  80 

J 

6 

NAME 

PKPRX 

7 

EXTRN 

CRLF,OUTSTR,OUTFLT,CXJTI  NT,  CO 

8 

EXTRN 

FQFCLR, FQFLD4 , FQFST4 , FQFAD4 

9 

EXTRN 

FQFSB4 , FQFM  4 , FQFD V4 , FQFCM4 

10 

EXTRN 

FQFNEG 

11 

EXTRN 

FX543 ,  FQ0684 ,  FX588 ,  FQX71 

12 

EXTRN 

FQ0664,Fp0686 

13 

9 

14 

CSEG 

15 

• 

9 

16 

•a***************#*##*#*#****##*#*#***### 

17 

• 

9 

18 

PUBLIC 

PKPRX 

19 

PKPROC: 

20 

;  PROCESS  PARAMETER  ADDRESSES 

0000  210500 

D 

21 

LXI 

H,LASTR+1H 

0003  72 

22 

MOV 

M,D 

0004  2B 

23 

XX 

H 

0005  73 

24 

MOV 

M,E 

0006  2B 

25 

XX 

H 

0007  70 

26 

MOV 

M,B 

0008  2B 

27 

XX 

H 

0009  71 

28 

MOV 

M,C 

OOOA  2B 

29 

XX 

H 

OOOB  01 

30 

POP 

D  }  RETURN  AXRESS 

OOOC  Cl 

31 

POP 

B 

OOOD  70 

32 

MOV 

M,B 

OOOE  2B 

33 

XX 

H 

XOF  71 

34 

MOV 

M,C 

XI 0  05 

35 

PUSH 

D 

36 

;  NPEAKS  =  NPEAKS  +  1 

XII  2A0290 

37 

LHLD 

NPEAKS 

XI 4  23 

38 

INX 

H 

XI 5  220290 

39 

SHLD 

NPEAKS 

40 

;  PRINT  CALLING  ARGUMENTS  (NPEAKS, NPKL/.^T) 

XI 8  21X02 

C 

41 

LXI 

H,MSG1 

XI B  XX 00 

E 

42 

CALL 

OUTSTR 

XI E  11X02 

C 

43 

LXI 

D,ZERO 

X21  010290 

44 

LXI 

B, NPEAKS 

X24  CDOOOO 

E 

45 

CALL 

OUTINT 

X27  21D302 

C 

46 

LXI 

H,MSG2 
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PKPROC  -  AREA 

AND  CHANNEL 

OF  PEAK 

IOC  OBJ 

SEQ 

SOURCE  STATEMENT 

002A  CD0000 

E 

47 

CALL 

OUTSTR 

002D  2AOOOO 

D 

48 

LHLD 

NPKL 

0030  E5 

49 

PUSH 

H 

;  1  NPKL 

0031  11C802 

C 

50 

LXI 

D,ZERO 

fi 

0034  Cl 

51 

POP 

B 

;  1 

0035  CDOOOO 

E 

52 

CALL 

OUTINT 

0038  0E2D 

53 

MV  1 

C,'-» 

003A  CDOOOO 

E 

54 

CALL 

00 

003D  2A0200 

D 

55 

LHLD 

NPKR 

0040  E5 

56 

PUSH 

H 

;  1  NPKR 

0041  11C802 

C 

57 

LXI 

D,ZERO 

0044  Cl 

58 

POP 

B 

;  1 

0045  CDOOOO 

E 

59 

CALL 

OUTINT 

0048  CDOOOO 

E 

60 

CALL 

CRLF 

61  ; 

CHECK  WHETHER  ROOM  IN 

COMMON  FOR  THIS  PEAK 

004B  3A0290 

62 

LDA 

NPEAKS 

;  TOO  MANY  PEAKS  ? 

004E  FE32 

63 

CPI 

50 

0050  DA5A00 

C 

64 

JC 

§1 

;  NO 

0053  CO 

65 

RNZ 

;  YES 

0054  21DB02 

C 

66 

LXI 

H,MSG4 

0057  CDOOOO 

E 

67 

CALL 

OUTSTR 

;  LAST  ONE 

68  @1 

• 

• 

69  ; 

FIND  CHANNEL  WITH  MAXIMUM  COUNTS 

005A  010600 

D 

70 

LXI 

B,@FAC 

005D  CDOOOO 

E 

71 

CALL 

FQFCLR 

;  TEST  =  0 

72  ; 

DO  20  l=AFKL,NPKR 

0060  2A0000 

D 

73 

LHLD 

NPKL 

0063  5E 

74 

MOV 

E,  M 

0064  23 

75 

INX 

H 

0065  56 

76 

MOV 

D,M 

;  D,E  =  NPKL 

77  @3: 

0066  2A0200 

D 

78 

LHLD 

NPKR 

0069  EB 

79 

XCHG 

;  (D,E)  =  NPKR 

006A  E5 

80 

PUSH 

H 

;  1  H,L  =  1 

006B  C5 

81 

PUSH 

B 

;  2  gFAC 

006C  CDOOOO 

E 

82 

CALL 

FQ0543 

;  1  >  NPKR  ?  <D,EXH 

006F  Cl 

83 

POP 

B 

;  2 

0070  El 

84 

POP 

H 

;  1 

0071  DA9000 

C 

85 

JC 

@4 

;  YES 

86  ; 

COMPARE  OOUNTS(I)  WITH  TEST 

0074  E5 

87 

PUSH 

.H 

;  1  1 

0075  29 

88 

DAD 

H 

0076  29 

89 

DAD 

H 

0077  110C94 

90 

LXI 

D, COUNTS-4 

007A  19 

91 

DAD 

D 

007B  EB 

92 

XCHG 

;  (D,E)  =  COUNTS!  1 ) 

007C  CDOOOO 

E 

93 

CALL 

FQFCM4 

;  COMPARE  0FAC:(D,E) 

007F  E620 

94 

ANI 

20H 

;  TEST  <  OOUNTS(I)  ? 

0081  El 

95 

POP 

H 

;  1 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

0082  CA8B00 

C 

96 

JZ 

85  ;  NO 

0085  CDOOOO 

E 

97 

CALL 

FQFLD4  ;  YES,  TEST=COUNTS( 1 ) 

0088  222400 

D 

98 

SHLD 

NPEAK  ;  NPEAK=I 

99  §5: 

;  20  CONTINUE 

008B  23 

100 

INX 

H 

008C  EB 

101 

XCHG 

;  d,e  =  I 

008D  C36600 

C 

102 

JNP 

@3 

103  @4: 

104  ;  PRINT  RESULTING  MAX  CHANNEL 

0090  21ED02 

C 

105 

LXI 

H, MSG5 

0093  CDOOOO 

E 

106 

CALL 

OUTSTR 

0096  012400 

D 

107 

LXI 

B, NPEAK 

0099  11C802 

C 

108 

LXI 

D,ZERO 

009C  CDOOOO 

E 

109 

CALL 

OUTINT 

009F  CDOOOO 

E 

110 

CALL 

CRLF 

111  ;  LEFT 

LIMIT  = 

Ml  NO (20, NPEAK-2) 

00A2  0614 

112 

MV  I 

B,20 

00 A4  2A2400 

D 

113 

LHLD 

NPEAK 

00A7  7C 

114 

MOV 

A,H 

00A8  A7 

115 

ANA 

A  ;  NPEAK  >  256  ? 

00A9  C2B400 

C 

116 

JNZ 

LEFT  ;  YES 

00  AC  7D 

117 

MOV 

A,L 

00 AD  D602 

118 

SUI 

2  ;  A  =  NPEAK-2 

00  AF  88 

119 

CMP 

B  ;  ...  <  20  ? 

OOBO  D2B400 

C 

120 

JNC 

LEFT  ;  NO 

0083  47 

121 

MOV 

B,A  ;  YES,  USE  NPEAK-2 

122  ;  FIND 

LOCAL  MINIMUM  TO  THE  LEFT 

123  ;  DO 

100  1=1 

, LIMIT 

124  ; 

^LEFT=NPEAK+I 

125  ; 

IF(C0UNTS(MEFT).LE.C0UNTS(NLEFT-1)) 

126  ; 

GO  TO 

120 

127  ; 100 

OONTINUE 

128  LEFT: 

00B4  78 

129 

MOV 

A,B 

00B5  2A2400 

D 

130 

LHLD 

NPEAK 

00B8  E5 

131 

PUSH 

H  ;  1  NPEAK 

00B9  29 

132 

DAD 

H 

OOBA  29 

133 

DAD 

H 

OOBB  110894 

134 

LXI 

D,C0UNTS-8H 

OOBE  19 

135 

DAD 

D 

OOBF  EB 

136 

XCHG 

;  (D,E)=C0UNTS(N"::.\K-1) 

OOCO  El 

137 

POP 

H  ;  1  (H,L)  =  NPEAK 

138  NLOOP: 

00C1  F5 

139 

PUSH 

PSW  ;  1  A  =  LOOP  CC'J/: 

00C2  42 

140 

MOV 

B,D 

00C3  4B 

141 

MOV 

C,E  ;  (B,C)  =OOUNTS  ( !  I  L  .K- 1 1 

142 

REFT 

4 

143 

DCX 

D 

144 

ENDM 

;  ( D,  E )  =COUNTS  ( Ni  tn<~  1  - 1 
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LOC  OBJ 

SEp 

SOURCE  STATENENT 

0004  IB 

145+ 

DCX 

D 

00C5  IB 

146+ 

OCX 

D 

00C6  IB 

147+ 

Da 

D 

OOC7  IB 

148+ 

DCX 

D 

00C8  2B 

149 

DCX 

H 

00C9  222200 

D 

150 

SHLD 

NLEFT 

9 

NLEFT  =  NPEAK  -  1 

OOOC  COOOOO 

E 

151 

CALL 

FQ0684 

9 

OOfPARE 

00  CF  07 

152 

RLC 

• 

9 

(B,C)  >  (D,E)  ? 

0000  D2DF00 

C 

153 

JNC 

@@120 

9 

NO,  THIS  IS  MINIMUM 

00D3  FI 

154 

POP 

PSW 

9 

1 

00D4  3D 

155 

DCR 

A 

00D5  C2C100 

C 

156 

JNZ 

NLOOP 

00D8  21FC02 

C 

157 

LXI 

H,MSG6 

00 DB  CD 0000 

E 

158 

CALL 

OLTTSTR 

OODE  F5 

159 

PUSH 

PSW 

9 

1 

160  @@120: 

OODF  FI 

161 

POP 

PSW 

• 

9 

1 

OOEO  C5 

162 

PUSH 

B 

9 

1  COUNTS (NLEFT) 

163 

RIGHT  LIMIT 

=  MINOC 10, 

NCHANL-NPEAK-1 ) 

00E1  060A 

164 

MVI 

B,  10 

00E3  2A0090 

165 

LHLD 

NCHANL 

00E6  EB 

166 

XCHG 

00E7  2A2400 

D 

167 

LHLD 

NPEAK 

OOEA  CDOOOO 

E 

168 

CALL 

FQ0588 

• 

9 

H,L  =  NCHANL -NPEAK 

OOED  2B 

169 

DCX 

H 

OOEE  7C 

170 

MOV 

A,H 

00 EF  A7 

171 

ANA 

A 

• 

9 

H,L  >  256  ? 

OOFO  C2F900 

C 

172 

JNZ 

RIGHT 

9 

YES 

00F3  7D 

173 

MOV 

A.L 

00F4  B8 

174 

CMP 

B 

• 

9 

H,L  >  10  ? 

00F5  D2F900 

C 

175 

JNC 

RIGHT 

• 

9 

YES 

00F8  47 

176 

MOV 

B.A 

177 

FIND  MINIMUM  TO  RIGHT  OF  PEAK 

178 

DO  130  1=1 

.LIMIT 

179 

NRIGHT=NPEAK+I 

180 

1 F (COUNTS ( NR IGHT). 

LE.00UMTS(NRIGHT+1 )) 

181 

GO  TO 

140 

182 

130  CONTINUE 

183  RIGHT: 

00F9  78 

184 

MOV 

A,B 

9 

A  =  LIMIT  (LOOP  COUNT) 

OOFA  2A2400 

D 

185 

LHLD 

NPEAK 

OOFD  E5 

186 

PUSH 

H 

9 

2  NPEAK 

OOFE  29 

187 

DAD 

H 

OOFF  29 

188 

DAD 

H 

0100  111094 

189 

LXI 

D,  COUNTS 

0103  19 

190 

DAD 

D 

0104  EB 

191 

XCHG 

• 

9 

(D,E)=00UNTS(NPEAK+1 ) 

0105  El 

192 

POP 

H 

• 

9 

2 

193  RLOOP: 

107 


1 


> 


ISIS-II  PCBQ/8085  "ACRO  ASSEIT’LFR,  V2.0  PKPPOC  PAGE 


PRCC  -  /'.REA 

AND 

CHANNEL 

CF  FE.’X 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

1 

1 

0106  F5 

194 

PUSH 

PSW 

;  2  LOOP  OOUNT 

0107  42 

195 

MOV 

B,D 

0108  4B 

196 

MOV 

C.E 

;  ( B,  C) =COUNTS ( NPEAK+ 1 ) 

197 

REFT 

4 

198 

INX 

D 

199 

ENDM 

;(D,E)=C0UNTS(NPEAK+I+1)  1 

0109  13 

200+ 

INX 

D 

01 OA  13 

201+ 

INX 

D 

01  OB  13 

202+ 

INX 

D 

01 OC  13 

203+ 

INX 

D 

1 

0100  23 

204 

INX 

H 

1 

01 OE  222600 

D 

205 

SHLD 

NR  1  GHT 

;  NRIGHT  =  NPEAK  +  1  j 

0111  CDOOOO 

E 

206 

CALL 

FQ0684 

;  OONPARE  i 

0114  07 

207 

RLC 

;  CB,C)  >  (D,E)  ?  ! 

0115  D22401 

C 

208 

JNC 

@@140 

;  NO,  (B,C)  IS  MINIMUM 

0118  FI 

209 

POP 

PSW 

;  2 

0119  3D 

210 

OCR 

A 

Oil  A  C20601 

C 

211 

JNZ 

RLOOP 

01  ID  210A03 

C 

212 

LXI 

H,MSG7 

0120  CDOOOO 

E 

213 

CALL 

OUTSTR 

0123  F5 

214 

PUSH 

PSW 

;  2 

215  @@140: 

0124  FI 

216 

POP 

PSW 

;  2 

217  ; 

SLOPE  =  ( COUNTS (NR  1 GHT ) -COUNTS ( NL EFT ) ) * 1 000 

218  ; 

SLOPE  =  SLOPE/C  NR  1  GHT- 

■NLEFT) 

0125  50 

219 

MOV 

D,B 

0126  59 

220 

MOV 

E,C 

;  (D,E)  =  OOUNTSC NRIGHT) 

0127  010600 

D 

221 

LXI 

B, @FAC 

01 2A  CDOOOO 

E 

222 

CALL 

F(?FLD4 

01 2D  DJ 

223 

POP 

D 

;  1 

01 2E  CDOOOO 

E 

224 

CALL 

FQFSB4 

;  FAOCNT(NR)-CNT(NL) 

0131  11C402 

C 

225 

LXI 

D,THOUS 

j 

0134  CDOOOO 

E 

226 

CALL 

FQFML4 

;  FAC=FAC*1000 

0137  2A2600 

D 

227 

LHLD 

NRIGHT 

01 3A  EB 

228 

XCHG 

01 3B  2A2200 

D 

229 

LHLD 

NLEFT 

01 3E  CDOOOO 

E 

230 

CALL 

Fp0588 

;  H,L  =  NRIGHT-NLEFT  i 

0141  C5 

231 

PUSH 

B 

;  1  ADDR  OF  FAC  ; 

0142  013600 

D 

232 

LXI 

B.TENP 

* 

0145  CDOOOO 

E 

233 

CALL 

FQ0671 

;  TEMP  =  FLOAT(H,L)  1 

0148  50 

234 

MOV 

0,B 

0149  59 

235 

MOV 

E,C 

= 

01 4A  Cl 

236 

POP 

B 

;  1 

01 4B  CDOOOO 

E 

237 

CALL 

FQFDV4 

;  FAC  =  FAC  /  TE’ 

01 4E  112800 

D 

238 

LXI 

D,  SLOPE 

0151  CDOOOO 

E 

239 

CALL 

FQFST4 

;  SLOPE  =  FAC 

240  ; 

INTEGRATE  UNDER  PEAK 

241  ; 

PRINT  INTEGRATION  LIMITS  (NLEFT,NRIGHT) 

0154  211903 

C 

242 

LXI 

H,MSG8 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

0157  CDOOOO 

E 

243 

CALL 

OUTSTR 

01 5A  11C802 

C 

244 

LXI 

0,ZER0 

01 5D  012200 

D 

245 

LXI 

B,NLEFT 

0160  CDOOOO 

E 

246 

CALL 

OUTINT 

0163  0E2D 

247 

MVI 

C,'-« 

0165  CDOOOO 

E 

248 

CALL 

00 

0168  11C 802 

C 

249 

LXI 

D,ZERO 

01 6B  012600 

D 

250 

LXI 

B.NRIGHT 

01 6E  CDOOOO 

E 

251 

CALL 

OUTINT 

0171  CDOOOO 

E 

252 

CALL 

CRLF 

253  ; 

INITIAL  CONDITIONS 

0174  2A0290 

254 

LHLD 

NPEAKS 

0177  29 

255 

DAD 

H 

0178  29 

256 

DAD 

H 

0179  E5 

257 

PUSH 

H  ; 

1 

01 7A  11E890 

258 

LXI 

D,  TOTAL-4 

017D  19 

259 

DAD 

D 

01 7E  223400 

D 

260 

SHLD 

gTOTAL  ; 

ADDR  OF  TOTAL (NPEAKS) 

0181  010600 

D 

261 

LXI 

B,@FAC 

0184  CDOOOO 

E 

262 

CALL 

FQFCLR  ; 

FAC  =  0 

0187  EB 

263 

XCHG 

0188  CDOOOO 

E 

264 

CALL 

FQFST4  ; 

TOTAL  =  0 

01 8B  El 

265 

POP 

H  ; 

1 

01 8C  11B091 

266 

LXI 

D, AREA-4 

018F  19 

267 

DAD 

D 

0190  223200 

D 

268 

SHLD 

gAREA  ; 

ADDR  OF  AREA(NPEAKS) 

0193  EB 

269 

XCHG 

0194  CDOOOO 

E 

270 

CALL 

FQFST4  ; 

AREA  =  0 

0197  111C00 

D 

271 

LXI 

D,FIRSTM 

01 9A  CDOOOO 

E 

272 

CALL 

FQFST4  ; 

FIRS1M  =  0 

273  ; 

DO  200  l=NLEFT,NRIGHT 

0190  2A2200 

D 

274 

LHLD 

NLEFT 

01  AO  222000 

D 

275 

SHLD 

1 

01  A3  29 

276 

DAD 

H 

01 A4  29 

277 

DAD 

H 

01 A5  110C94 

278 

LXI 

D, COUNTS- 

1 

01A8  19 

279 

DAD 

D 

01 A9  EB 

280 

XCHG 

f 

(D,E)  =  OOUNTS (‘LEFT) 

01 AA  012C00 

D 

281 

LXI 

B.CNTNL  ; 

CNTNL  =  COUNT?  CLEFT) 

01  AD  CDOOOO 

E 

282 

CALL 

FQFLD4 

283  §14: 

01  BO  112600 

D 

284 

LXI 

D,NRIGHT 

0183  2A2000 

D 

285 

LHLD 

1 

01 B6  CDOOOO 

E 

286 

CALL 

FQ0543  ; 

1  >  NRIGHT  ? 

01 B9  DA3302 

C 

287 

JC 

@15 

288  ; 

TOTAL (NPEAKS) 

=  TOTAL (NPEAKS)  +  COUN  I ■ 1 ) 

01 BC  010600 

D 

289 

LXI 

B,@FAC 

01 BF  2  A3 400 

D 

290 

LHLD 

@TOTAL 

01C2  E5 

291 

PUSH 

H  ; 

1  ADDR  OF  TOT/  L 
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v'G  -  AREA  AND  CHANNEL  OF  PEAK 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

01 C3  EB 

292 

XCHG 

01 C4  CDOOOO 

E 

293 

CALL 

FQFLD4 

01 C7  2A2000 

D 

294 

LHLD 

1 

01 CA  29 

295 

DAD 

H 

01 CB  29 

296 

DAD 

H 

01CC  110C94 

297 

LXI 

D,00UNTS-4 

01 CF  19 

298 

DAD 

D 

01  DO  223000 

D 

299 

SHLD 

0COUNT  ;  ADDR  OF  COUNTS (1 

01 D3  EB 

300 

XCHG 

01 D4  CDOOOO 

E 

301 

CALL 

FQFAD4 

01 D7  D1 

302 

POP 

D  ;  1 

01 D8  CDOOOO 

E 

303 

CALL 

FQFST4 

304  ; 

ABOVE  =  COUNTS  (1)  -  COUNTS (NLEFT) 

305  ; 

-  SLOPE  *  (l-NLEFT)  /  1000 

01 OB  2A2000 

D 

306 

LHLD 

1 

01 DE  EB 

307 

XCHG 

01 DF  2A2200 

D 

308 

LHLD 

NLEFT 

01 E2  CDOOOO 

E 

309 

CALL 

F00588  ;  H,L  =  1  -  NLEFT 

01 E5  CDOOOO 

E 

310 

CALL 

FQ0671  ;  FAC  =  FLOAT(H,L) 

01 E8  112800 

D 

311 

LXI 

D, SLOPE 

01 EB  CDOOOO 

E 

312 

CALL 

FQFML4  ;  ...  *  SLOPE 

01  EE  11C402 

C 

313 

LXI 

D,7H0U$ 

01  FI  CDOOOO 

E 

314 

CALL 

FQFDV4  ;  ...  /  1000 

01 F4  CDOOOO 

E 

315 

CALL 

FQFNEG  ;  ...  - 

01 F7  2A3000 

D 

316 

LHLD 

@OOUNT 

01  FA  EB 

317 

XCHG 

01 FB  CDOOOO 

E 

318 

CALL 

FQFAD4  ;  +  OOUNTC 1 ) 

01 FE  112C00 

D 

319 

LXI 

D.CNTNl 

0201  CDOOOO 

E 

320 

CALL 

FQFSB4  ;  -  OOUNT( NLEFT) 

0204  111800 

D 

321 

LXI 

D, ABOVE 

0207  CDOOOO 

E 

322 

CALL 

FQFST4  ;  ABOVE  =  FAC 

323  ; 

AREA(NPEAKS) 

=  AREA(NPEAKS)  +  ABOVE 

020A  2A3200 

D 

324 

LHLD 

@AREA 

020D  EB 

325 

XCHG 

020E  CDOOOO 

E 

326 

CALL 

FQFAD4 

0211  CDOOOO 

E 

327 

CALL 

FQFST4 

328  ; 

FIRS7W  =  FIRS7M  +  l*ABOVE 

0214  2A2000 

D 

329 

LHLD 

1 

0217  CDOOOO 

E 

330 

CALL 

FQ0671  ;  FAC  =  FLOAT( 1 ) 

021A  111800 

D 

331 

LXI 

D,  ABOVE 

021 D  CDOOOO 

E 

332 

CALL 

FQFML4 

0220  111C00 

D 

333 

LXI 

D,FIRSTM 

0223  CDOOOO 

E 

334 

CALL 

FQFAD4 

0226  CDOOOO 

E 

335 

CALL 

FQFST4 

336  ; 

200  CONTINUE 

(END  OF  DO  LOOP) 

0229  2A2000 

D 

337 

LHLD 

1 

022C  23 

338 

INX 

H 

022D  222000 

D 

339 

SHLD 

1 

0230  C3B001 

C 

340 

JKP 

@14 
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PKPROC  -  AREA 

AND  CHANNEL 

OF  PEAK 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

341  @15: 

342  ; 

REPORT  RESULTS  OF  INTEGRATION  (TOTAL, AREA) 

0233  212903 

C 

343 

LXI 

H,MSG9 

0236  CDOOOO 

E 

344 

CALL 

OUTSTR 

0239  2 A3 400 

D 

345 

LHLD 

gTOTAL 

023C  44 

346 

MOV 

B,H 

023D  40 

347 

MOV 

C,L 

023E  11C802 

C 

348 

LXI 

D,ZERO 

0241  CDOOOO 

E 

349 

CALL 

OLTTFLT 

0244  CDOOOO 

E 

350 

CALL 

CRLF 

0247  213E03 

C 

351 

LXI 

H,MSG10 

024A  CDOOOO 

E 

352 

CALL 

OUTSTR 

024D  2A3200 

D 

353 

LHLD 

@AREA 

0250  44 

354 

MOV 

B,H 

0251  4D 

355 

MOV 

C,L 

0252  11C802 

C 

356 

LXI 

D,ZERO 

0255  CDOOOO 

E 

357 

CALL 

OUTFLT 

358  ; 

0258  2A0290 

359 

LHLD 

NPEAKS 

025B  29 

360 

DAD 

H 

025C  29 

361 

DAD 

H 

025D  112090 

362 

LXI 

D,CHANL-4 

0260  19 

363 

DAD 

D 

0261  E5 

364 

PUSH 

H  ;  1  CHANL( NPEAKS) 

365  ; 

IF(AREA(NPEAKS) .LE.O)  THEN 

0262  010600 

D 

366 

LXI 

B,@FAC 

0265  2A3200 

D 

367 

LHLD 

gAREA 

0268  EB 

368 

XCHG 

0269  CDOOOO 

E 

369 

CALL 

FQFLD4 

026C  11C802 

C 

370 

LXI 

D,ZERO 

026F  CDOOOO 

E 

371 

CALL 

FQ0684  ;  CONPARE 

0272  07 

372 

RLC 

;  AREA( NPEAKS)  >  0  ? 

0273  DA9202 

C 

373 

JC 

@16  ;  YES 

374  ; 

PRINT  "#CAUTION*" 

0276  214F03 

C 

375 

LXI 

H,MSG11 

0279  CDOOOO 

E 

376 

CALL 

OUTSTR 

377  ; 

CHANL(NPEAKS)  =  NPEAK  *  10 

027C  2A2400 

D 

378 

LHLD 

NPEAK 

027F  010600 

D 

379 

LXI 

B,@FAC 

0282  CDOOOO 

E 

380 

CALL 

FQ0671  ;  FAC  =  FLOAT  ( NPF.  A!< ) 

0285  1 1C002 

C 

381 

LXI 

D,TEN 

0288  CDOOOO 

E 

382 

CALL 

FQFML4 

0288  D1 

383 

POP 

D  ;  1 

028C  CDOOOO 

E 

384 

CALL 

FQFST4  ;  CHANLC NPEAKS)  =  AC 

028F  C3BA02 

C 

385 

JIP 

@17 

386  ; 

ELSE 

387  @16: 

388  ; 

CHANL( NPEAKS)  =  10  *  FIRS7M/AREA(  Nf-TAF E ) 

0292  11C002 

C 

389 

LXI 

D,TEN 

—  -  )'«-»■)—  . . - 

A-  •  ■vfr.'tr...  >  -~P 
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PKPPOC  -  AREA  AMD  CHANM'FL  OF  per?. 


LOC  OBJ 

SEP 

SOURCE  STATEMENT 

0295  CD 0000 

E 

390 

CALL 

FPFLD4 

0298  111C00 

D 

391 

LXI 

D.FIRSTM 

029B  CDOOOO 

E 

392 

CALL 

FPFML4 

029E  2A3200 

D 

393 

LHLD 

§AREA 

02A1  EB 

394 

XCHG 

02A2  CDOOOO 

E 

395 

CALL 

FQFDV4 

02A5  D 1 

396 

POP 

D  ;  1 

02A6  D5 

397 

PUSH 

D  ;  1  CHANL(NPEAKS) 

02A7  CDOOOO 

E 

398 

CALL 

FQFST4 

399 

;  PRINT  RESULT  (CHANL(NPEAKS)  ) 

02 AA  CDOOOO 

E 

400 

CALL 

CRLF 

02 AD  215C03 

C 

401 

LXI 

H,MSG12 

02B0  CDOOOO 

E 

402 

CALL 

OUTSTR 

02B3  Cl 

403 

POP 

B  ;  1 

02B4  11BE02 

C 

404 

LXI 

D, HUNDRD 

02B7  CDOOOO 

E 

405 

CALL 

OUTFLT 

406 

;  END  IF 

407 

§17: 

02BA  CDOOOO 

E 

408 

CALL 

CRLF 

02BD  C9 

409 

RET 

410 

• 

9 

411 

.a#*****##**#**###**##**##*#****#**##***** 

412 

• 

9 

413 

;  CONSTANTS 

414 

• 

9 

02BE  6400 

415 

HUNDRD:  DW 

100 

02C0  OAOO 

416 

TEN:  DW 

10,0 

02C2  0000 

02C4  E803 

417 

THOUS:  DW 

1000,0 

02C6  0000 

02C8  0000 

418 

ZERO:  DW 

0,0 

02CA  0000 

419 

9 

420 

;  VARIABLES 

421 

• 

9 

422 

DSEG 

423 

;  PARAMETER  ADDRESSES:  ORDER  DEPENDENT 

0002 

424 

NPKL:  DS 

2 

0002 

425 

NPKR:  DS 

2 

0002 

426 

LASTR:  DS 

2 

427 

J 

428 

;  LOCAL  VARIABLES 

0012 

429 

@FAC:  DS 

18 

0004 

430 

ABOVE:  DS 

4 

0004 

431 

FIRS7M;  DS 

4 

0002 

432 

1:  DS 

2 

0002 

433 

NLEFT :  DS 

2 

0002 

434 

NPEAK:  DS 

2 

0002 

435 

NRIGHT:  DS 

2 
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'  I  8080/8085  MACRO  ASSEMBLER,  V2.0 
...  -  AREA  AfiD  CHANNEL  OF  PEAK 


LOC  OBJ 

SEQ 

SOURCE 

STATEMENT 

0004 

436  SLOPE: 

DS 

4 

0004 

437  ; 

438  CN7NL: 

DS 

4 

0002 

439  eoOUNT: 

DS 

2 

0002 

440  @AREA: 

OS 

2 

0002 

441  rrOTAL: 

DS 

2 

0004 

442  TEW5: 

DS 

4 

443  ; 

444  ;  CHARACTER  CONSTANTS 

0200  504541 4B 

445  ; 

446 

447  MSG1 : 

CSEG 

DB 

'PEAK  #*,0 

0200  2023 

02D2  00 

0203  20464F55 

448  MSG2: 

DB 

'  FOUND  »,0 

02D7  4E4420 

02DA  00 

02DB  2A4C494D 

449  MSG4: 

DB 

' "LIMIT*  LAST  PEAK',0 

02DF  49542A20 
02E3  4C415354 
02E7  20504541 

02 EB  4B 

02EC  00 

02 ED  20202040 

450  MSG5: 

DB 

*  MAXIMUM  IN  ',0 

02F1  4158494D 
02F5  554D2049 
02F9  4E20 

02FB  00 

02FC  2020204C 

451  MSG6: 

DB 

*  LEFT  LIMIT', 0 

0300  45465420 
0304  4C494D49 
0308  54 

0309  00 

030 A  20202052 

452  MSG7: 

DB 

'  RIGHT  LIMIT',0 

030E  49474854 
0312  204C494D 
0316  4954 

0318  00 

0319  20202049 

453  MSG8: 

DB 

'  INTEGRATING  ',0 

03 ID  4E544547 
0321  52415449 
0325  4E4720 

0328  00 

0329  20202020 

454  MSG9: 

DB 

•  TOTAL  COUNTS  = 

0320  20544F54 
0331  414C2043 
0335  4F554E54 
0339  53203D20 
033D  00 
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IOC  OBJ 

033 E  20202020 
0342  204E4554 
0346  20415245 
03 4 A  41203D20 
034E  00 
034F  2020202A 
0353  43415554 
0357  494F4E2A 
035B  00 
035C  20202050 
0360  45414B20 
0364  41542043 
0368  4841 4E4E 
036C  454C20 
036F  00 


SEQ  SOURCE  STATEMENT 

455  MSG10:  DB  •  NET  AREA  =  »,0 

456MSG11:  DB  *  *CAUTI0N*',0 

457  MSG12:  DB  '  PEAK  AT  CHANNEL  *,0 


9000 

458  ; 

459  ;  BLANK  OOfMJN 

460  ASEG 

461  ORG 

9000H 

0002 

462  NCHANL:  DS 

2 

0002 

463  NPEAKS:  DS 

2 

0020 

464  OOEFF:  DS 

8*4 

00C8 

465  CHANL:  DS 

50*4 

00C8 

466  TOTAL:  DS 

50*4 

00C8 

467  AREA:  DS 

50*4 

00C8 

468  PKERGY:  DS 

50*4 

00C8 

469  PGPS:  DS 

50*4 

0004 

470  TIME:  DS 

4 

3FFC 

471  COUNTS:  DS 

4095*4 

472  ; 

473  END 

PUBLIC  SYMBOLS 
PKPROC  C  0000 

EXTERNAL  SYMBOLS 

00  E  0000 

CRLF 

E 

0000 

FQ0543  E 

0000 

FQ0588  E  0000 

FQ0664  E  0000 

FQ0671 

E 

0000 

FQ0684  E 

0000 

FQ0686  E  0000 

FQFAD4  E  0000 

FQFCLR  E 

0000 

FQFCM4  E 

0000 

FQFDV4  E  0000 

FQFLD4  E  0000 

FQFML4 

E 

0000 

FQFNEG  E 

0000 

FQFSB4  E  OOCO 

FQFST4  E  0000 

OUTELT  E 

0000 

OUTINT’  E 

0000 

OUTSTR  E  OOCO 

USER  SYMBOLS 

§1  C  005A 

§14 

C 

01  BO 

@15  C 

0233 

@16  C  02°2 

§17  C  02BA 

© 

C 

0066 

G4  C 

0090 

§5  C  008F 

@@120  C  00 DF 

G@140 

C 

0124 

0AREA  D 

0032 

0COUNT  D  0030 

@FAC  D  0006 

9T0TAL 

D 

C034 

ABOVE  D 

0018 

AREA  A  9164 

CHANL  A  9024 

CNTNL 

D 

002C 

00  E 

0000 

COEFF  A  9004 

OOUNTS  A  9410 

CRLF 

E 

0000 

FIRSTM  D 

001C 

FQ0543  E  0000 
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- 

AREA 

AND  CHANNEL 

OF  PEAK 

FQ0588 

E 

0000 

FQ0664 

E 

0000 

FQ0671  E  0000 

FQ0684  E  0000 

FQ0686 

E 

0000 

FQFAD4 

E 

0000 

FQFCLR  E  0000 

FQFCM4  E  0000 

FQFDV4 

E 

0000 

FQFLD4 

E 

0000 

FQFML4  E  0000 

FQFNEG  E  0000 

FQFSB4 

E 

0000 

FQFST4 

E 

0000 

HUNDRD  C  02BE 

1 

D  0020 

LAS7R 

D 

0004 

LEFT 

C 

00B4 

MSG1  C  02CC 

MSG10 

C  033E 

MSG11 

C 

034F 

MSG12 

C 

03  5C 

MSG2  C  02D3 

MSG4 

C  02DB 

MSG5 

C 

02ED 

MSG6 

c 

02FC 

MSG7  C  03  OA 

MSG8 

C  0319 

MSG9 

C 

0329 

NCHANL 

A 

9000 

NLEFT  D  0022 

NLOOP 

C  00C1 

NPEAK 

D 

0024 

NPEAKS 

A 

9002 

NPKL  D  0000 

NPKR 

D  0002 

NRIGHT 

0 

0026 

OUTFLT 

E 

0000 

OUTINT  E  0000 

OLfTSTR  E  0000 

PGPS 

A 

9344 

PKERGY 

A 

927C 

PKPROC  C  0000 

RIGHT 

C  OOF9 

RLOOP 

C 

0106 

SLOPE 

D 

0028 

TENP  D  0036 

TEN 

C  02C0 

THOUS 

C 

02C4 

TIME 

A 

940C 

TOTAL  A  90EC 

ZERO 

C  02C8 

ASSENBLY 

COMPLETE,  NO  ERRORS 
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FORTRAN  CO? FILER  PKSRCH  -  SCAN  SFCCTRUM  FOR  PEAK'S 


13  JAN  81  FAC 


ISIS-II  FORTRAN-80  VI .0  COMPILATION  OF  PROGRAM  UNIT  PKSRCH 
OBJECT  MODULE  PLACED  IN  PKSRCH. OBJ 

COMPILER  INVOKED  BY:  :F1:F0RT80  PKSRCH. FOR  PAGELENGTH(54) 


1 

2 

3 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 


IPAGEW I DTH  C  79 )  DATE( 13  JAN  81) 

$TITLE( 'PKSRCH  -  SCAN  SPECTRUM  FOR  PEAKS') 

SUBROUTINE  PKSRCH 

C  SEARCH  FOR  PEAKS  IN  THE  RANGE:  COUNTS (4)  TO  COUNTS (NCHANL-3) 

C  MULTIPLY  COUNTS  BY  ZERO-AREA  CORRELATOR  TO  MEASURE  CURVATURE 
C  COMPUTE  TEST=CURV*SQRT(50  CHANNEL  FORWARD  AVERAGE) 

C  NLEFT  =  CHANNEL  WHERE  CURVATURE  FIRST  EXCEEDS  TEST 
C  NRIGHT  =  CHANNEL  WHERE  CURVATURE  LAST  EXCEEDS  TEST 
C 

C  NOTE:  FWHM  EXPECTED  BY  THIS  ROUTINE  IS  3  CHANNELS 
C 

COMMON  NCHANL , NPEAKS , OOEFF ( 8 ) 

OOMMON  CHANL(50) ,TOTAL(50) ,AREA(50) ,PKERGY(50) ,PGPS(50) 
COMMON  TIME, COUNTS (4095) 

IF(NCHANL.Ep.O)  RETURN 
C  ASK  USER  FOR  CURVATURE  CRITERIA 
10  CALL  OUTCHRC 'PEAK  DETECT  CURVATURE?  (1-1000)>') 

CALL  I N I  NT ( I CURV, 12) 

IF( ICURV.LT.1 .OR. ICURV.GT.1000)  GO  TO  10 
CURV= I CURV* I CURV 
C 

NLEFT=1 
LASTR=0 
SUM=0 
NPEAKS=0 
DO  30  1=1,50 

30  SUM=SUMKOUNTS(  I ) 

T=CURV*SUM/50 
DO  140  M=6, NCHANL -4 
OO 

DO  100  1=1,3 
J=MH 

OC-OOUNTS ( J-6 ) +COUNTS ( J-3 ) +OOUNTS ( J-3 ) -COUNTS ( J ) 

100  CONTINUE 

C=C*ABS(C) 

IFCM.GT.6)  THEN 
I F (M. LE. NCHANL-53)  THEN 
SUM= SUM- COUNTS ( M-6 ) +COUN TS (M+44) 

T=CURV*SUM/50 
END  IF 

C  TEST  FOR  PEAK  BOUNDARY 

IF(C.GT.T)  THEN 
IF(CI.LE.TI)  NLEFT=M 
ELSE  IF(CI.GT.TI)  THEN 
NRIGHT=M 
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wr,AN  COf FILER 

PKSRCH  -  SCAM  SPECTRUM  FOR  PEAKS 

35 

CALL  PKPROC(NLEFT,NRIGHT,LASTR) 

36 

NLEFT=0 

37 

ENDIF 

38 

END  IF 

39 

C1=C 

40 

T1=T 

41 

140 

CONTINUE 

42 

RETURN 

43 

END 

13  JAN  81 


MODULE  INFORMATION; 

OODE  AREA  SIZE  =  0299H  6650 
VARIABLE  AREA  SIZE  =  003AH  58D 
MAXIMUM  STACK  SIZE  =  0006H  6D 
54  LINES  READ 


0  PROGRAM  ERROR(S)  IN  PROGRAM  UNIT  PKSRCH 

0  TOTAL  PROGRAM  ERROR(S) 

END  OF  FORTRAN  CONPILATION 


C 


PAGE  ? 
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Appendix  B 
Interface  Testing 

The  design  and  construction  of  the  demonstration  system 
interface  board  was  described  in  Chapter  2  of  the  body  of 
this  report.'  This  appendix  describes  the  procedures, 
programs,  and  results  of  testing  the  interface  board. 

A  program  called  PPTEST  (for  Parallel  Port  TEST)  was 
written  which 

-  initializes  the  microcomputer  parallel  port  hardware, 

-  asks  the  user  which  input  port  to  test, 

-  asks  the  user  what  value  to  put  on  the  output  port, 

-  puts  the  value  specified  on  the  output  lines, 

-  prints  the  value  of  the  input  port  specified,  and 

alternately  displays  the  value  of  each  half  of  the 
input  port  on  a  one  digit  hexadecimal  light  emitting  diode 
(LED)  display. 

An  assembly  listing  of  the  program  follows  this  discussion. 

The  program  was  used  to  bench  test  the  interface.  With 
the  program  running,  the  output  pins  of  the  jack  J5  were 
checked  with  a  logic  probe.  The  output  driver  in  the  single 
board  computer  inverts  the  value  sent  to  it;  so,  when  a 
hexadecimal  FF  is  sent  out,  all  output  lines  should  have  a 
low  logic  value.  Then,  a  hexadecimal  00  is  sent  and  all 
lines  checked  for  high  value. 

The  input  lines  were  checked  by  sending  a  hexadecimal 
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01  t  ; he  output  port  to  select  the  jack  J4  input  lines. 
For  each  input  port,  each  input  line  was  grounded  in  turn. 
The  pins  normally  float  to  +5  volts  which,  after  inversion, 
represents  a  0  in  that  bit  position  of  the  hexadecimal 
display.  Grounding  the  pin  corresponding  to  bit  0  of  the 
port  caused  the  display  to  change  from  0  followed  by  0  to  0 
followed  by  1.  The  two  numbers  flash  alternately  on  the 
display.  The  first  number  can  be  identified  because  it  is 
displayed  for  3  tenths  of  a  second,  while  the  second  number 
is  displayed  for  9  tenths  of  a  second.  Grounding  the  jack 
J4  pin  corresponding  to  bit  1  of  the  input  port  results  in  a 
0  followed  by  2  on  the  display.  Other  pins  are  checked  in 
the  same  manner  until  the  bit  7  pin  produces  an  8  followed 
by  0  on  the  display.  The  bench  testing  revealed  a  few 
wiring  errors,  some  bad  components,  and  revealed  that  all 
outputs  and  some  inputs  are  inverted  by  the  single  board 
computer . 

The  next  phase  of  testing  involved  writing  a  short 
program  named  CHIN  (for  CHannels  INto  microcomputer)  to 
transfer  multichannel  analyzer  data  over  the  interface.  No 
conversion  of  the  binary  coded  decimal  data  is  attempted  at 
this  point.  A  program  listing  is  included  at  the  end  of 
this  appendix,  but  should  be  used  with  caution  because  this 
program  was  abandoned  before  all  revisions  were 
incorporated.  While  the  program  ran,  the  values  of  the  RDY2 
and  CMD  lines  of  the  multichannel  analyzer  were  monitored 
with  an  oscilloscope.  Through  modifications  to  the  CHIN 
program  and  observation  of  the  oscilloscope  trace,  the 
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actual  response  of  the  multichannel  analyzer  was  determined . 

The  results  are  reported  in  chapter  2  of  the  body  of  this 
report. 

The  actual  response  of  the  analyzer  caused  a  change  in 
the  program  which  runs  the  interface.  In  particular,  the 
response  of  the  analyzer  was  found  to  be  faster  than  the 
microcomputer,  and  so  there  was  no  need  to  have  the  analyzer 
interupt  the  microcomputer  when  channel  data  was  ready. 
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I  SIS- 1 1  8080/8085  MACRO  ASSEMBLER,  V2.0  PPTEST  PAGE  1 

PPTEST  -  TEST  THE  PARALLEL  PORT  INTERFACE 


loc  obj 

SEQ 

SOURCE  STATEf€NT 

1 

JMACROFILE 

2 

UJ 

'PPTEST  ■ 

-  TEST  THE  PARALLEL  PORT  INTERFACE') 

3 

• 

4 

;  19  DEC  80 

5 

• 

9 

6 

;  1.  INPUT  PORT  1  AND  PRINT  VALUE 

7 

;  2.  GET  OUTPUT  VALUE  FROM  TELETYPE 

8 

;  3.  OUTPUT  VALUE  TO  PORT  3 

9 

• 

P 

10 

;  THIS  ROUTINE  NOT  DESIGNED  TO  RUN  ON  DEVELOPMENT  SYSTE 

M 

11 

i 

12 

NAME 

PPTEST 

13 

• 

p 

14 

;  EQUATES  TO  MONITOR  ROUTINES 

15 

• 

P 

0487 

16 

WOUT 

EQU 

0487H 

0312 

17 

CROUT 

EQU 

0312H 

034F 

18 

GETHX 

EQU 

034FH 

0318 

19 

DELAY 

EQU 

0318H 

0307 

20 

CO 

EQU 

0307H 

21 

• 

P 

22 

;  OTHER 

EQUATES 

23 

• 

P 

OOE4 

24 

FORTIN 

EQU 

0E4H 

00E6 

25 

PRTOUT 

EQU 

0E6H 

00E7 

26 

FORTC? 

EQU 

0E7H 

00  EB 

27 

P0RTC2 

EQU 

OEBH 

0090 

28 

PCW123 

EQU 

90H  ;  10010010  =  ArMODE  0-1  B:MODE 

0-1  C:MOOE:  0-0 

009B 

29 

PCW456 

EQU 

9BH  ;  10011011  =  ArMODE  0-1  BrMODE 

0-1  C:MODE:  0-1 

30 

• 

P 

31 

.#**«##*###**#***##****#*##***#*#*****##**#**####*#*### 

f 

**##****##«*#**** 

32 

• 

P 

8000 

33 

ORG 

8000H  ;  MOVE  TO  RAM  TO  EXE  CUTE 

34 

• 

P 

* 

35 

INIT: 

;  INITIALIZE  PAR/,  1.1.  EL  FORTS 

8000  3E90 

36 

MV  1 

A,PCW123 

8002  D3E7 

37 

OUT 

P0RTC1 

8004  3E9B 

38 

MVI 

A,PCW456 

8006  03EB 

39 

OUT 

P0RTC2 

40 

• 

9 

41 

INPUT: 

8008  214880 

42 

LXI 

H, INMSG 
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'  T  -  TEST  THE  PARALLEL  TORT  INTERFACE 


LX  OBJ 

SEQ 

SOURCE 

STATEMENT 

800B  CD2E80 

43 

CALL 

OUTSTR 

800E  3E01 

44 

MV  1 

A,1 

8010  CD3980 

45 

CALL 

DEL AY 1 

8013  DBE4 

46 

IN 

PORTIN 

8015  CD8704 

47 

CALL 

NMOUT 

8018  CD  1203 

48 

CALL 

CROUT 

49 

• 

9 

50 

OUTPUT: 

801 B  214F80 

51 

LXI 

H,  OUTMSG 

801 E  CD2E80 

52 

CALL 

OUTSTR 

8021  CD4F03 

53 

CALL 

GETHX 

8024  D3E6 

54 

OUT 

PRTOUT 

8026  3E05 

55 

MV  1 

A,5 

8028  CD3980 

56 

CALL 

DELAY 1 

802B  C30880 

57 

JMP 

INPUT 

58 

f 

59 

.a**#**##*#*****##*#*##**#***###**##*##****#*#*#***#**# 

******************** 

60 

;  NAME:  OUTSIT! 

61 

;  INPUTS: 

H,L  =  ADDRESS  OF  STRING  TO  OUTPUT 

62 

;  OUTPUTS: 

NONE 

63 

;  CALLS: 

CO 

64 

;  DESTROYS: 

A,C,H,L 

65 

;  FUNCTION: 

OUTPUT  STRING  TERMINATED  BY  ZERO  BYTE  T 

0  CONSOLE 

66 

• 

9 

67 

0UTS7R: 

802E  AF 

68 

XRA 

A  {  A  =  0 

802F  4E 

69 

MOV 

C,M  {  C  =  NEXT  CHAR 

8030  B9 

70 

CMP 

C  {  =  0? 

8031  C8 

71 

RZ 

{  YES,  RETURN 

8032  CD0703 

72 

CALL 

00  {  OUTPUT  CHAR  TO  CONSOLE 

8035  23 

73 

INX 

H  {  POINT  TO  NEXT  CHAR 

8036  C32E80 

74 

JW3 

OUTSTR 

75 

• 

9 

76 

I****************************************************** 

*»*####*#####*#***##* 

77 

• 

9 

78 

;NAME:  DEL AY 1 

79 

{INPUTS: 

A  =  NUTBER  OF  CHARACTERS 

80 

{  OUTPUTS: 

NONE 

81 

{  CALLS: 

DELAY 

82 

{  DESTROYS: 

A,B,C 

83 

{  FUNCTION: 

DELAY  AN  INTEGRAL  NUNBER  OF  SECONDS 

84 

• 

9 

85 

DELAY 1 : 

8039  01E803 

86 

LXI 

B,10X 

87 

DELOOP: 

803C  CD 1803 

88 

CALL 

DELAY  ;  DELAY  1  MILLISECOND 
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PPTEST  -  TEST  THE  PARALLEL  PCR.T  !,'  TEE.”  EE 


LOC  OBJ 

•SEP 

SOURCE  STATEMENT 

803F  OB 

89 

XX 

B  ;  1000  TIMES 

8040  C23C80 

90 

JNZ 

DELOOP 

8043  3D 

91 

DCR 

A  ;  SECONDS  LEFT  ? 

8044  C23980 

92 

JNZ 

DELAY 1  ;  YES,  LOOP 

8047  C9 

93 

RET 

94 

I 

95 

.*^*###*#*******#####***#*#*#*#*#*##*##*#**######*#*** 

*#*########*####*#### 

96 

• 

p 

97 

;  STORAGE  AND  CONSTANTS 

98 

• 

P 

8048  494E5055 

99 

INMSG:  DB 

»INPUT=',0 

804C  543D 

804E  00 

804F  4F555450 

100 

OUTMSG:  DB 

•  OUTPUT*?  «,0 

8053  55543D3F 

8057  00 

8000 

101 

END 

INIT 

PUBLIC  SVMBaS 


EXTERNAL  SYMBOLS 


USER  SYMBaS 
CO  A  0307 
DELOOP  A  803C 
INPUT  A  8008 
OUTSTR  A  802E 
P0RTC2  A  OOEB 


CROUT  A  0312 
GETHX  A  034F 
NMOUT  A  0487 
PCW123  A  0090 
PORTIN  A  00E4 


DELAY  A  0318 
INIT  A  8000 
OUTMSG  A  804F 
PCW456  A  009B 
PRTOUT  A  00E6 


DELAY 1  A  8039 
INMSG  A  8048 
OUTPUT  A  801 B 
P0RTC1  A  00E7 


ASSEMBLY  OONFLETE,  NO  ERRORS 
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ISIS- 1 1  8080/8085  MACRO  ASSEMBLER,  V2.0  MODULE  PAGE 

CHIN  -  INPUT  CHANNEL  CONTENTS  FROM  MULTI-CHANNEL  ANALYZER 


LOC  OBJ 


SOURCE  STATEfCNT 


1  SMACROFILE 

2  $TITLE( 'CHIN  -  INPUT  CHANNEL  OONTENTS  FROM  MULT I -CH ANNE 
L  ANALYZER') 

3  ; 

4  ;  6  OCT  80 

5  ; 

6  j  1.  INPUT  CHANNELS  0-2047  FROM  MCA 

7  ;  2.  STORE  BCD  IN  RAM  LOCATIONS  AOOO-BFFF 

8  ;  {4  BYTES/CHANNEL) 

9  ;  3.  IDENTIFY  EVERY  TENTH  CHANNEL  IN  LED  DIGIT 
10  ; 

11  ;  THIS  ROUTINE  NOT  DESIGNED  TO  RUN  ON 

12  ;  DEVELOPMENT  SYSTEM 
=  13  $INCLUDE(MONADD.EQU) 

=  14  ; 


02AF 

= 

16  ; 

17  ADRD 

EQU 

02AFH 

;  CONSOLE  <—  ADDRESS  IN  H,L  RE 

02D9 

= 

GISTERS 
18  BYTE 

EQU 

02D9H 

;  READ  2  ASCII  HEX  DIGITS  IN  A 

02F4 

= 

19  Cl 

EQU 

02F4H 

;  A  <—  CONSOLE  CHARACTER 

02FE 

— 

20  CNVBN 

P 

EQU 

02FEH 

;  A  <—  BINARY  VALUE  OF  HEX  IN 

0307 

= 

21  CO 

EQU 

0307H 

;  CONSOLE  <—  ASCI  1  CHAR  IN  C 

0312 

= 

22  CROUT 

EQU 

0312H 

;  CONSOLE  <—  CR  LF 

0318 

= 

23  DELAY 

EQU 

0318H 

;  1  MILLISECOND 

0321 

= 

24  ECHO 

EQU 

0321 H 

;  CONSOLE  <—  ASCI  1  CHAR  IN  C  C 

0348 

— 

R->CRLF  ESO>$ 
25  GETCH  EQU 

0348H 

;  C  <—  CONSOLE  1  CHAR  W/0  PARI 

034F 

TY 

26  GETHX 

EQU 

034FH 

;  BC  <—  4  DIGIT  HEX  D=DELIM  CA 

03C8 

- 

RRY=1  NONULL 

27  HILO  EQU 

03C8H 

;  CARRY<-1  IF  HL>=DE  UNSIGNED 

0487 

= 

28  NMOUT 

c 

EQU 

0487H 

;  CONSOLE  <—  2  HEX  DIGITS  FROM 

0500 

= 

29  PRVAL 

EQU 

050DH 

;  A  <—  ASCII  HEX  DIGIT  IN  LOW 

0548 

ORDER  A 
30  REGSV 

EQU 

0548H 

;  SAVE  REGISTER?  'IN  INTERUPT 

05B3 

= 

31  RSTTF 

EQU 

05B3H 

;  RESTORE  REGISTERS 

0609 

= 

32  VALDG 

EQU 

0609H 

;  CARRY  <-  1  IF  C  VALID  HEX  DIG 

0624 

55 

IT 

33  VALDL 

EQU 

0624H 

;  CARRY  <-  1  IF  C  =  ,  CR  BLANK 

34  ; 

35  ; 

36  ;  I/O  EQUATES 

37  ; 
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CHIN  -  INPUT  CHANNEL  CONTENTS  FROM  MULTI-CHANNEL  ANALYZER 


1 


LOC  OBJ 

SEQ 

SOURCE 

STATEMiNT 

00  EA 

38  IN2 

EQU 

OEAH 

100K,10K  DIGITS 

00E9 

39  INI 

EQU 

0E9H 

1000,100  DIGITS 

00E8 

40  INO 

EQU 

0E8H 

10,1  DIGITS 

00E6 

41  OUTbYT 

EQU 

0E6H 

EXT-R, EXT-A, RDY-2, SM, SELECT 

00E5 

42  DISfl 

EQU 

0E5H 

LED  DISPLAY 

00E7 

43  OLTTCTL 

EQU 

0E7H 

PORT  1,2,3  CONTROL 

00E7 

44  OUTB IT 

EQU 

0E7H 

OUTPUT  1  BIT 

OOEB 

45  INCTL 

EQU 

OEBH 

PORT  4,5,6  CONTROL 

00D6 

46  LED 

EQU 

0D6H 

DIAGNOSTIC  LED  ON  SBC  BOARD 

0090 

47  ourcw 

EQU 

10010000B  ;  M0DE=0  1-1  2-0  3-0 

009B 

48  INCW 

EQU 

1001 101  IB  ;  M0DE=0  INPUT 

0085 

49  RLOW 

O 

EQU 

100001 01 B  ;  READY2  LOW  =  SET  BIT 

0084 

4 

50  RHIGH 

EQU 

1 00001 OOB  :  READY2  HIGH  =  RESET  B 

IT  2 

0080 

51  ADDRIN 

g 

EQU 

1 OOOOOOOB  ;  INPUT  ADDRESS  &  STATU 

0081 

52  DATA IN 

EQU 

1 0000001 B  :  INPUT  DATA 

53  ; 

54  ;  INTERUPT  EQUATES 

55  ; 

0061 

56  EOI 1 

EQU 

011 00001 B  ;  RESET  INTERUPT  1 

0008 

57  INTO 

EQU 

008H 

;  INTERUPT  COLWAND  PORT 

3FE1 

58  INTABL 

EQU 

3FE1H 

;  ADDRESS  OF  INTERUPT  T 

ABLE 

59  ; 

60  .a***************************************** 

61  ; 

8000 

62 

C 

ORG 

8000H 

;  MOVE  TO  RAM  TO  EXECUT 

63  ; 

64  INIT: 

8000  3E90 

65 

MV  1 

A,OUTCW 

8002  D3E7 

66 

T 

OUT 

OUTCTL 

;  INITIALIZE  PORTS  1,2, 

8004  3E9B 

J 

67 

MV  1 

A, INCW 

8006  D3EB 

68 

OUT 

INCTL 

;  INITIALIZE  PORTS  4,5, 

8008  3E12 

0 

69 

MV  1 

A, 1001  OB 

;  SCANMASTER  OFF,  RE ADO 

UT 

800A  D3E6 

70 

OUT 

OUTBYT 

800C  213680 

71 

LXI 

H.HANDL1 

800F  22E53F 

72 

SHLD 

INTABL+1M  ;  INTERUF'T  1  TO  MY  HAND 

LER 

73  ; 

8012  210OA0 

74 

LXI 

H.OAOOOH 

;  ADDRESS  O'  FHST  CHAN 

N& 

75  CHANL: 

;  INPUT  NEXT  CPANNa 

8015  3E85 

76 

MV  1 

A, RLOW 

125 
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CHIN  -  INPUT  CHANNEL  CONTENTS'  FROM  MILT  I -CHANNEL  ANALYZER 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

1 

8017  D3E7 

77 

OUT 

OUTBIT 

;  MAKE  READY2  LOW 

1 

8019  76 

78 

HLT 

;  WAIT  FOR  INTERUPT 

» 

801 A  CD4D80 

79 

CALL 

INPCH 

;  INPUT  THE  CHANNEL 

t 

801 D  CD6180 

80 

CALL 

IDENT 

;  DISPLAY  ADDRESS  IF  1 

LOW 

| 

8020  7C 

81 

MOV 

A,H 

8021  PECO 

82 

CPI 

OCOH 

;  H,L  =  COOO  ? 

8023  CA3280 

83 

JZ 

DONE 

;  YES,  DONE 

84  ;  DELAY  50  MS. 

FOR  DEBUG  PURPOSES 

8026  3E32 

85 

MV  1 

A,  50 

86  DELOOP. 

8028  CD 1603 

87 

CALL 

DELAY 

802B  3D 

88 

DCR 

A 

802C  C22880 

89 

JNZ 

DELOOP 

| 

802F  C31580 

90 

JMP 

CHANL 

;  INPUT  NEXT  CHANNEL 

91  DONE: 

;  LAST  CHANNEL  IS  IN  RA 

i 

8032  AF 

92 

XRA 

A 

8033  D3E6 

93 

OUT 

OUTBYT 

;  SCANMASTER  ON,  STOP  M 

OOE 

8035  CF 

94 

RST 

1 

;  EXIT  TO  MONITOR 

95  ; 

gg  .a********************************************** 

97 

98  HANDL1:  ;  INTERUPT  1  HANDLER 

99  ; 


100 

;  INPUTS: 

NONE 

I 

101 

;  OUTPUTS: 

NONE 

1 

102 

;  CALLS: 

NONE 

103 

;  DESTROYS: 

NONE 

104 

9 

8036  F5 

105 

PUSH 

PSW 

• 

9 

PRESERVE  A, FLAGS 

8037  3E84 

106 

MV  1 

A,RHIGH 

8039  D3E7 

107 

OUT 

OUTBIT 

9 

READY2  <—  HIGH 

803 B  3E80 

108 

MV  1 

A,ADDRIN 

• 

9 

SELECT  ADDRESS  SIDE  0 

F  MUX 

8030  D3E7 

109 

OUT 

OUTBIT 

110  CMDTST: 

.... 

803F  DBEA 

111 

IN 

IN2 

8041  E602 

112 

ANI 

10B 

• 

f 

00W1AND  STILL  HIGH  : 

* 

8043  CA3F80 

113 

JZ 

CMDTST 

• 

9 

YES,  V'  IT  FOR  LC:V 

8046  3E61 

114 

MV  1 

A, EOI 1 

8048  D3D8 

115 

OUT 

INTC 

9 

RESET  U“E"UPT 

804A  FI 

116 

POP 

PSW 

9 

RESTORE  ’..FLAGS 

804B  FB 

117 

El 

804C  C9 

118 

RET 

119 

9 

120  •#«*»##»****#*#********#*»*«**#*#****'  *** 
121  ! 
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-  If 'PIT  CHANNEL  CONTENTS  FROM  fULT  I -CHANNEL  ANALYZER 


LOC  OBJ  SEQ  SOURCE  STATEfCNT 


122 

INPCH: 

;  INPUT  ONE  CHANNEL  TO 

MEMORY 

123 

# 

124 

;  INPUTS: 

H,L  =  ADDRESS  4 

BYTE  BLOCK 

125 

j  OUTPUTS: 

H,L  =  ADDRESS  NEXT  BLOCK 

126 

;  CALLS 

: 

NONE 

127 

;  DESTROYS : 

A 

128 

1 

804D  3E81 

129 

MVI 

A, DATA IN 

804F  D3E7 

130 

OUT 

OUTBIT 

;  SaECT  DATA  SIDE  OF  M 

UX 

8051  AE 

131 

XRA 

A 

8052  77 

132 

MOV 

M,A 

;  FIRST  BYTE  =  0 

8053  DBEA 

133 

IN 

IN2 

8055  23 

134 

INX 

H 

8056  77 

135 

IS 

MOV 

M,A 

;  SECOND  BYTE  =  100K  10 

8057  DBE9 

136 

r\ 

IN 

INI 

8059  23 

137 

INX 

H 

805A  77 

138 

MOV 

M,A 

;  THIRD  BYTE  =  1000  100 

805B  0BE8 

139 

IN 

INO 

805D  23 

140 

INX 

H 

805E  77 

141 

MOV 

M,A 

;  FOURTH  BYTE  =  10  1 

805F  23 

142 

INX 

H 

;  POINT  TO  FIRST  BYTE  0 

F  NEXT  BLOCK 

8060  C9 

143 

RET 

144 

9 

145 

.it***#**###*####****#*#*########**#**####**#*## 

146 

9 

147 

IDENT: 

;  IF  l=LOW  DISaAY  ADDR 

ESS  DIGIT 

148 

• 

9 

149 

!  INPUTS: 

NONE 

150 

;  OUTPUTS: 

NONE 

151 

;  CALLS 

NONE 

152 

;  DESTROYS: 

NONE 

153 

• 

9 

8061  D3D6 

154 

OUT 

LED 

;  FLASH  LED  TO  SAY  WE*R 

E  ALIVE 

155 

;  CHECK 

IDENTIFY  LINE 

8063  3E80 

156 

MVI 

A, ADDRIN 

8065  D3E7 

157 

OUT 

OUTBIT 

;  SELECT  ADDRESS  SIDE  0 

F  MUX 

8067  0BE9 

158 

IN 

INI 

8069  E680 

159 

ANI 

1 OOOOOOOB 

;  I  LOW  ? 

806 B  CO 

160 

RNZ 

;  NO,  DON'T  IDENTIFY 

161 

;  DISPLAY  DIGIT 

806C  DBE8 

162 

IN 

INO 

;  READ  A10,A1  DIGITS 

163 

REFT 

4 
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PAGE  5 

CHIN  - 

INPUT  QIANNEL  CONTENTS  FROM  MULTI 

-CHANNEL  ANALYZER 

LX 

OBJ 

SEQ 

SOURCE  STATEMENT 

1 

164 

RRC 

165 

ENDM 

1 

806E 

OF 

166+ 

RRC 

1 

806F 

OF 

167+ 

RRC 

i 

8070 

OF 

168+ 

RRC 

I 

1 

8071 

OF 

169+ 

RRC 

f 

1 

8072 

D5E5 

170 

OUT 

DISPL 

f 

OUTPUT  THE  DIGIT  TO  H 

EX  LED 

i 

8074 

09 

171 

RET 

i 

i 

172  ; 

1 

8X0 

173 

END 

1 N  IT 

PUBLIC 

SYMBOLS 

EXTERNAL  SYMBOLS 

USER  SYMBOLS 

ADDRIN 

A  0080 

ADRD  A  02AF 

BYTE 

A  02D9 

CHANL 

A 

8015 

Cl 

A  02F4 

CMDTST  A  803 F 

CNVBN 

A  02FE 

CO 

A 

0307 

CROUT 

A  0312 

DATAIN  A  0081 

DELAY 

A  0318 

DELXP  A 

8028 

DISPL 

A  00E5 

DONE  A  8032 

ECHO 

A  0321 

E0I1 

A 

0061 

GETCH 

A  0348 

GE7HX  A  034F 

HANDL1 

A  8036 

HILO 

A 

03C8 

IDENT 

A  8061 

INO  A  00E8 

INI 

A  00E9 

IN2 

A 

00  EA 

INCTL 

A  OOEB 

INCW  A  009B 

1 N  IT 

A  800C 

INPCH 

A 

804D 

INTABL 

A  3FE1 

INTC  A  00D8 

LED 

A  00D6 

NMOUT 

A 

0487 

OUTBIT 

A  00E7 

OUTBYT  A  OOE6 

OUTCTL  A  00  E7 

outcw 

A 

0090 

PRVAL 

A  050D 

REGSV  A  0548 

RHIGH 

A  0084 

rloi i 

A 

0085 

RSTTF 

A  05B3 

VALX  A  0609 

VALDL 

A  062* 

ASSEMBLY  OONPLETE,  NO  ERRORS 


r 
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